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IDENTIFICATION 


PRODUCT ID: AC-T3356A-MC 

PRODUCT TITLE: CZTUZAO TU80 FRONT-END PRT D 
PRODUCT DATE: 23 = MARCH -1983 

MAINTAINER: TAPE DIAGNOSTIC ENGINEERING 
AUTHOR: DICE SYSTEMS, INC. 


COPYRIGHT (C) 1983 BY 
DIGITAL EQUIPMENT CORPORATION, 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


OF THE ABOVE COPY T 
THEREOF MAY NOT BE PROVI MADE 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
eed hy CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE CN EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THIS IS A PDP=-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 

OF A TUBO MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM. 

THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 

FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 


1. ENGINEERING SPECIFICATION FOR TU8O MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM=C194D-022; REVISION NUMBER 2; DATE: 28-JUL~81. 


2. ENGINEERING SPECIFICATION FOR TU80 DIAGNOSTIC PACKAGE; DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0; DATE: 2-SEP-81. 


3. ENGINEERING SPECIFICATION FOR TU8O MAGTAPE SUBSYSTEM; DOCUMENT 
NUMBER: YM=C194S-02; REVISION NUMBER 3; DATE: 10-JUN-81. 


4. CIQPMAO XXDP+ PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: 14 JULY 1980. 
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HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 


2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 
2.1 WARDWARE REQUIREMENTS 


PDP-11 FAMILY teh oy WITH 32K WORDS OF MEMORY 
TU8O MAGTAPE SUBSYSTEM or ig Rag AS AND CONTROLLER) 

CAUTION: DIAGNOSTIC REQUIRES 52k _ OF MEMORY 
(28K USEABLE I.E. 4K FOR 1/0 PAGE 








2.2 OPTIONAL HARDWARE: 


UP TO 4 TU8O CONTROLLERS PER PDP-11 UP TO 1 DRIVE PER CONTROLLER 


2.3 SOFTWARE REQUIREMENTS 


PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP+) 


2.4 PREREQUISITES 


FUNCTIONAL PDP-11 FAMILY CENTRAL PROCESSOR AND MEMORY 
FUNCTIONAL CONSOLE TERMINAL 
FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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3.0 OPERATING INSTRUCTIONS 

3.1 OPERATOR COMMANDS 

Le TUBO DIAGNOSTIC IS A age DIAGNOSTIC SUPERVISOR COMPATIBLE 
LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED os THE 


ALL 
PDP=11 PROGRAMMER'S MANUAL NCTOPRAO XXDP*+ PROGRAMMERS MANUAL, 
AC=S296A-AC. THE OPERATOR RESPONSE IS IN QUOTES. 


BOOT THE DIAGNOSTIC XXDP MEDIA 


CHMDLBO XXDP+ MONITOR 28K 








a ot gl He 

ENTER DATE (DD-MMM-YR) :°'29-JAN-82"" 
RESTART ADDRESS: | 153726 

50 HZ? N ** <CR> 


LSI? N “* Y<CR> * 
THIS awa TYPE “H’’ OR “H/L** FOR DETAILS 








R CZTU 

CZTUZABINDRS LOADED 

poe RUN-TIME SERVICES REV D. APR 79 

See ruao LOGIC DIAGNOSTICeeee 

UNIT IS TUB8O 

DR> ** STA/FLA:PNT:HOE °° 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
—— ON WHICH ARE ‘PRINT EACH TEST NBR AS EXECUTED’ AND “HALT ON 


3.2 HARDWARE PARAMETERS 


AFTER — STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERV HE PROGRAM WILL ISSUE THE “'C Wu?"* QUESTION TO ASK IF 
THE E PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A ‘W'’ (NO) RESPONSE TO THE ““CHANGE HU?" QUESTION, THE DIAGNOSTIC WILL 
NOT RUN. IT WILL GIVE THE MESSAGE "NO UNIT’. A ‘“'Y’’ IS REQUIRED AND AT 
LEAST A 1" IS REQUIRED AT THE “# UNITS (D)?°° QuesTION. 


TSBA/TSDB = 172522, VECTOR = 224 














ON A “'Y’’ (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE ve A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 


G 1 
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DEFAULT VALUE THAT WILL BE TAKEN 'F ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(DD)" IN A QUESTION INDICATES THAT A_ DECIMAL NUMBER 
REQUIRED AS A RESPONSE. AN ‘(O)"’ INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L)*’ INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"*y’* FOR YES, ‘'N’’ FOR NO. 


# UNITS (D) 2? <ENTER THE NUMBER OF M7454 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 
TSSR REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE '#@ UNITS?°° QUESTION. LOGICAL UNIT 


NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 


3.3 SOFTWARE PARAMETERS 


THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE; 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 


CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N 2? <TYPE ‘‘Y’* TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS 10 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QU 
TESTS USE 
ITERATIONS .> 
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SEQ 7 


4.0 OPERATING INSTRUCTIONS = SAM°LE PRINTOUTS 
4.1 SUCCESSFUL RUN EXAMPLE (PDP-11) 


TST: 001 WRITE TAPE MARK RETRY TEST 
TST: 002 SKIP TAPE MARKS TEST 
AND INITIALIZE TEST 
AND OPERATION INCOMPLETE TEST 
TST: 005 TEST OF OPERATIONS AT EOT TEST 
TST: 006 FUNCTION TIMING TEST 


0 ERRORS 
NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 








ee 


‘7 
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OPERATING INSTRUCTIONS = SAMPLE ERROR MESSAGES 
5.0 OPERATING INSTRUCTIONS = SAMPLE ERROR MESSAGES 
ERROR MESSAGE EXAMPLE 1 
TST: 001 FIFO EXERCISER TEST 
CZTUZ HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 


GNALS IN WORD #8: = DESIGNATOR <BIT #> 
E <9> IRDY<6> IRWD<2> 






IRESV1<13> ICER <10> ISPEED<7> ILDP<4> IFPT<0> 
T INALS IN D #9: 
DATMIS<7> ILW<6> OUTRDY<5> INRDY<4> 
MESSAGE BUFFER AD 047 
MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 RECV: 100020 xXOR: 000000 
WORD #1 EXPD: 000012 RECV: 000012 xOR: 000000 
WORD #2 EXPD: 000000 H KOR: 000000 
#3 : 000010 000000 
WORD #4 EXPD: 000000 
WORD #5 EXPD: 000000 
WORD #6 EXPD: 000000 
WORD #7 EXPD: 000000 
WORD #8 EXPD: 070217 
WORD #9 EXPD: 000074 





ERROR MESSAGE EXAMPLE 2 


CZTUZ HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR = 100214 

TSSR BITS SET: SC.SSR 

TERMINATION yp sees = UNRECOVERABLE ERROR 








ERROR MESSAGE EXAMPLE 5 


CZTUZ HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 0235506 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 xOR: 000200 


SEQ 8 
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6.0 PROGRAM RUN TIMES 


THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW.THESE F te ARE 
TO BE USED E. THE TIMING WAS DONE ON A PDP-11/25 ) 
PROCESSOR WITH A LA=34 CONSOLE. 


THE PROGRAM RUNS IN TWO eget NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 


THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A ‘‘Y"’ (YES). 


TEST N/I NUMBER DEF 
NUMBER ITER _ 


Au lwn— 
ed and and and od 

a aed ed ed od od 
oooo 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 


Q.V. 15 SECONDS 
DEFAULT 16 SECONDS 


SEQ 9 
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7.0 TEST SUMMARIES 
7.1 TEST 1 = WRITE TAPE MARK RETRY 


PUTT TTITITITITITI LiL tii iii titi titi titi 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT » 


SAAAAAAAAAAAARAARAARAAAAARARARAASTHAAEAAATAAAAAAEAAEAAEAAAEAARANAAE 


THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TSPE MARK RETRY 
a REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE 


7.1.1 TEST 1, SUBTEST 1:- 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 
1S POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE (NEF) ERROR BIT SET. 


7.1.2 TEST 1, SUBTEST 2:- 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED volt THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD, BUT NOT AT 

RESULTS IN TAPE STATUS ALERT TERMINATION, WITH THE REVERSE "INTO 

BOT (RIB) STATUS BIT SET. 


7.1.3 TEST 1, SUBTEST 3:_ 


VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND TERMINATES PROPERLY 
AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 
ol AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND 

= e 





7.1.4 TEST 1, SUBTEST 4:- 


VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
RETRY eg FS ISSUING 


RETRY N SUC T 
RECORDS REVERSE COMMANDS IN SUCCESSION. THE 
SECOND SPACE RECORDS REVERSE COMMAND SHOULD TERMINATE WITH 
REVERSE INTO BOT (RIB) STATUS SET. 





7.2 TEST 2 = SKIP TAPE MARKS 


WTTTTITITITITIL TTL LLL LLL LLL 
* NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
* ANY TAPE ERRORS WILL aE DISPLAYED AS TAPE STATUS ALERT & 


Veeeeeeeeeeeeeeeeeeeareeeeeeeeeeearereeeereeerereeeeeerereaeeeeere 


———ee - 
en 


TT 


ewe ee 
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SEQ 11 


THIS TEST VERIFIES PROPER OPERATION OF THE SKIP ha MARKS 
FORWARD AND SKIP TAPE MARKS REVERSE C S. PR RATION 
UNDER CONTROL OF ALL COMBINATIONS OF a ENABLE SK P APE MARKS 
STOP (ESS) AND ENABLE TAPE MARKS STuP OFF BOT (ENB) its SPECIFIED 
BY THE WRITE CHARACTERISTICS C « THE TEST CONSISTS 
OF THE FOLLOWING SUBTESTS ( FOR EACH “SUBTEST, THE TAPE IS FIRST 
WRITTEN WITH AN APPROPRIA 5 *- SERIES OF DATA RECORDS, AND/OR TAPE 
MARKS, AND/OR DOUBLE TAPE MARKS. 











7.2.1 TEST 2, SUBTEST 1;- 


VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH A TAPE MARK 

COUNT OF 1 OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 

WRITTEN WITH SEVERAL "FILES" EACH FILE CONSISTS OF A NUMBER OF 

DATA RECORDS FOLLOWED BY A TAPE MARK. EACH DATA RECORD CONTAINS 
E NUMBER AND THE ITHIN ILE SO THAT 







OF EACH SKIP COMMAND, 
TO SET UP THE ESS AND CONTROL BITS. 

AND ENB ARE USED (00,01, "0. 11) ; OPERATION SHOULD BE THE SAME 
IN EACH CASE FOR THIS SUBTEST. 





7.2.2 TEST 2, SUBTEST 2:- 


VERIFIES THAT SKIP TAPE MARKS COMMAND WITH A TAPE MARK COUNT 

GREATER THAN 1 OPERATES PROPERLY. COUNTS OF 2, 3, 8, 52, 64, 
256, AND S12 ARE TESTED. THE TESTING SEQUENCE IS SIMILAR TO 
THAT USED IN SUBTEST 1. 





7.2.3 TEST 2, SUBTEST 3:- 


VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION 
WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 


7.2.4 TEST 2, SUBTEST 4:- 
VERIFIES THAT A SKIP TAPE MARKS gyre COMMAND ISSUED WHILE THE 
TAPE IS POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT NOT 


BU 
AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH THE REVERSE 
INTO BOT (RIB) STATUS BIT SET. 


7.3 TEST 3 = NO-OP ("CLEAN TAPE’) AND INITIALIZE 


THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("'CLEAN TAPE'') AND INITIALIZE 
COMMAND. SUBTESTS ARE: 


wee = —— --—— 


ce A 


' 
eal nal 


RS 





ee ee ee 


nh 1 


01 
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7.3.1 TEST 3, SUBTEST 1;- 


VERIFIES THAT THE NO-OP COMMAND ( CUuRRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY NORMAL TERM or aetee f ody PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STA OMMAND), AND 
INDEED DOE NOT MOVE TAPE. THE El - RST 
WITH THE SEQUENCED TEST yest IT IS THEN R AGAIN 

THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE IS 
STILL AT BOT AND THAT PROPER STATUS IS oF THE FIRST RECORD 
ON TAPE IS READ AND VERIFIED (TO on i TAPE POSITION AND 
VERIFYING DATA WERE NOT CHANGED), THEN THE NO-OP C 

ISSUED AGAIN AND STATUS AND POSITION ARE VERIFIED. 








7.3.2 TEST 3, SUBTEST 2:- 


VERIFIES THAT THE INITIALIZE COMMAND OPERATES a NO-OP, 
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
HAVE ALREADY BEEN DETECTED IN inl ee THE TEST SEQUENCE 
IS SIMILAR TO THAT USED IN SUBTEST 


7.4 TEST 4 = ERASE AND OPERATION INCOMPLETE 


Qeeeetereerenereeeaeeeeereeeeereeeeeneerererereraeeaeaeenteeenenne 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE & 
t ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT 


RALRAKAAAAAAAAAARAAAAAAARAAAASEAAARAAAAAAAAAAAERAAAAERAAAARAREAAAEES 


THIS TEST VERIFIES THAT THE ERASE COMMAND OPERATES PROPERLY AND 
THAT THE VARIOUS OTHER TAPE MOTION COMMANDS TERMINATE WITH UN- 

RECOVERABLE ERROR (TAPE POSITION LOST) AND OPERATION INCOMPLETE 
(OPI) STATUS WHEN THEY DO NOT ENCOUNTER ANY DATA ON THE TAPE. 

THE TEST CONSISTS OF THE FOLLOWING SUBTESTS: 


7.4.1 TEST 4, SUBTEST 1;- 


VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS POSITIONED 
AT BOT OPERATES PROPERLY AND ACTUALLY ERASES THE TAPE. THE FOLLOWING 
TEST SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWCUND, THEN SEVERAL TEST RECORDS ARE 
WRITTEN AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND POSITION IS CHECKED 
(BOT SHOULD BE 0). 

A READ REVERSE COMMAND IS Seay IT at VERIFIED dg! = 


COMMAND TERMINATES WITH TAF HA 


es 


EE a 
= aan sare 
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INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO DATA IS 
TRANSFERRED. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND. 


7.4.2 TEST 4, SUBTEST 2:- 


VERIFIES ‘4AT AN ERASE COMMAND, EXECUTED WHEN THE a is NOT 
POSITION‘: AT BOT OPERATES PROPERLY AND DOES NOT CORRU 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 


1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL RECORDS. 

3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF TEST RECORDS. 

4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COMMAND IS ISSUED. IS VERIFIED THAT 

TERMINATION IS ACCOMPLIS HAT THE DATA 


WAS NOT CORRUPTED. 


7.4.3 TEST 4, SUBTEST 3:- 


VERIFIES THAT AN ERASE meee ENCOUNTERING THE EOT MARKER, OR 
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE OTHER TAPE 
MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK RESULTS IN 
UNRECOVERABLE ERROR TERMINATION AND OPERATION INCOMPLETE STATUS. 

THE FOLLOWING TEST SEQUENCE IS EXECI'TED: 


1. THE TAPE IS REWOUND. 


2. ERASE COMMANDS ARE REPEATEDL( ISSUED UNTIL EOT 
STATUS IS SEEN. AN “png 1S REPORTED IF ANY TERMINATION 
OTHER THAN NORMAL (WITH EOT=0), OR TAPE STATUS ALERT 
TERMINATION (WITH EOT=1) IS ENCOUNTERED. IF THE CONTROLLER 
OR TRANSPORT DOES NOT DETECT THE EOT, THE TRANSPORT WILL 
FAULT. Lr IS REPORTED AS A FATAL ERROR AND THE TEST 


IS 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS VERIFIED 
THAT TAPE STATUS ALERT TERMINATION RESULTS, WITH EOT=1. 

4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS (ISSUED 
IN THE ORDER GIVEN ) RESULTS IN UNRECOVER 


ABLE ERROR 
TERMINATION WITH OPI=1; SPACE RECORDS REVERSE. SKIP TAPE 
MARKS REVERSE, READ REVERSE, REREAD wadesi; (OPP=0), 
REREAD PREVIOUS (OPP=1) REREAD WEXT ¢ 









SEQ 15 


—- 
—— ~~ 
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ty F READ NEXT, SKIP TAPE MARKS REVERSE, SKIP TAPE 
MARKS FORWARD, REVERSE SKIP TAPE MARKS FORWARD, SPACE 
RECORDS FORWARD, WRITE DATA RETRY. 


NEXT STEP: IF BUFFERING IS ENABLED, iT IS DISABLED VIA THE 
BUFFER CONTROL FIELD IN THE EXTENDED CHARACTERISTICS DATA 
WORD SUPPLIED BY A WRITE. 


7.5 TEST 5 = OPERATIONS AT EOT 


ne Taha 


* NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE e 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT * 


RARARHARAAARAAAAAAAAAARARAAAAAAARAAERERAAEEEAERERAAEAAEEAERAEAAARERAEAES 


THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY 
BY THE VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST 
SEQUENCE IS PERFORMED: 








1. THE TAPE IS REWOUND. 
é. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL Lag © 
ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS OTHER 
ONAL CORRECTABLE, ORRECTABLE DATA ERROKS 








UNC "CAUSE 
A FATAL ERROR REPORT. RECORDS WITH DATA ERRORS ARE RETRIED, 
$0 THE TAPE ENDS UP WITH GOOD DATA. 


3. ANOTHER WRITE DATA COMMAND IS ISSUED AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


4 A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 








5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT [S CHECKED 
ae STATUS ALERT TERMINATION OCCURS WITH EOT=1, AND 
= o 
6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT 
1, IS ISSUED, 





OF 
AND IT IS CHECKED THAT Be STATUS ALERT 
TERMINATION OCCURS, WITH EOT=1, AND THK=1. 


7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT 
OF 1, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS WITH EOT=1. 


8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 1, 
IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS, 
WITH EOT=1. 

9. A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED THAT 
NORMAL TERMINATION OCCURS WITH EOT=1. 


10. A READ FORWARD COMMAND IS oe AND IT IS CHECKED THAT 
NORMAL TERMIANTION C T=1 





ane 


¢ @ 


Q 15 
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1. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 5, 
is iSeres AND IT CHECKS THAT NORMAL TERMINATION OCCURS 
= 


12. A SPACE RECORDS FORWARD COMMAND WITH A RECORD COUNT OF 3 
IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS WITH EOT=1. 


13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, wiicH SHOULD 
SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT=0, BOT=1, AND 
= 


7.6 TEST 6 = FUNCTION TIMING 


ocanannen ante iaimnaetensboteasutesensseractecetecas weenones 
* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 
* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT ® 


RERSRAKAAAAAAASAAARARAAAAAAAAAAKARAAARAETTAERAAAATAAAAAAEAAAAAAAAAEEE 









THIS TEST — THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS XTENDED GAPS OF THE PROPER LENGTH. ie LOW 
SPEED MODES ARE get IT IS ALSO VERIFIED THAT 

WITH A RECORD COUNT OF 80 OR MORE, AND A 
SKIP TAPE ITH AC OF 2 OF MORE, OPERATE THE 
TAPE IN HI D MODE. THIS TEST CAN 


HIGH-SPEE ONLY BE RUN IF A 

REAL-TIME CLOCK IS AVAILJABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 













—— == 





CZTUZAO TUBO FRONT END PRT D 
PROGRAM HEACER 


708 
709 
715 
716 000000 
717 
718 
724 000000 
25 002000 
726 002000 
00 
727 
728 
729 
730 
731 
732 
735 
734 
103 
132 
124 
125 
132 
000 
000 
000 
101 
060 
000001 
001217 
071224 
071364 
002124 
002134 
072352 
000000 
000000 
000000 
000000 
071552 





TUV2A:: 


s 


»SBTTL 
~MCALL 
svc 


- ENABLE 
eNLIST 


- ENABL 
22 
BGNAOD 


dD 2 
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PROGRAM HEADER 


svc 
; INITIALIZE SUPERVISOR MACROS 


LC 

BEX ,CND 
AMA,ABS 
TUV2A 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER a. -BGNRPT ,BGNSETUP 


_ HEADER CZTUZ.A,0.65 
L 3:01 AGNOSTIC NAME 
** ASCII C/ 
ASCII /2/ 
ASCII /T/ 
ASCII /U/ 
ASCII /2/ 
BYTE 0 
BYTE 0 
BYTE 0 
LSREV:: sREVISION LEVEL 
eASCII /A/ 
LSDEPO: : 30 
ASCII /0/ 
LSUNIT sNUMBER OF UNITS 
TSPTHYV 
eett. 655 sLONGEST TEST TIME 
LSHPCP:: sPOINTER TO H.W. QUES. 
-WORD LSHARD 
LSSPCP:: sPOINTER TO S.W. QUES. 
-WORD LSSOFT 
LSHPTP:: sPTR. TO DEF. H.W. PTABLE 
WORD LSHW 
LSSPTP:: sPTR. TO S.W. PTABLE 
«WORD LSSW 
LSLADP: : sDIAG. END ADDRESS 
-WORD LSLAST 
LSSTA:: sRESERVED FOR APT STATS 
WORD 0 
L$CO:: 
WORD 0 
LSDTYP:: P sDIAGNOSTIC TYPE 
LSAPT:: — . sAPT EXPANSION 
rs Ww 
LSDTP:: PTR. TO DISPATCH TABLE 
D LSDISPATCH 


A. lai’ ai ia di ea 


SEQ 16 


CZTUZAO TUBO FRONT END PRT D 
PROGRAM R 


022550 
022646 
000000 
003542 
104035 
000000 
021752 


06 023030 


022754 
021742 





LSENVI:: 
LSEXP1::. 
LSMREV:: 


LSSPC:: 
LSDEVP:: 
LSREPP:: 
LSEXP4:: 
LSEXPS:: 
LSAUT:: — 
LSDUT:: 
LSLUN:: — 
LSDESP:: 
LSLOAD::. 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: — 
LSPRT:: 

LSTEST:: 
LSDLY:: 
LSHIME:: 


555755 
o 


E 2 
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sFLAGS DESCRIBE HOW IT WAS SETUP 
sEXPANSION WORD 
;SVC REV AND EDIT # 
CSREVISION 
CSED 
sDIAG. EVENT FLAGS 


0 
0 
s POINTER TO DEVICE TYPE LIST 
LSOVTYP 
sPTR. TO REPORT CODE 
LSRPT 
0 
0 
sPTR. TO ADD UNIT CODE 
LSAU 
sPTR. TO DROP UNIT CODE 
LSDU 
0 sLUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
LSDESC 
sGENERATE SPECIAL AUTOLOAD EMT 
ESLOAD 
P sPOINTER TO ERRTBL 
sPTR. TO INIT CODE 
LSINIT 
sPTR. TO CLEAN-UP CODE 
LSCLEAN 
sPTR. TO AUTO CODE 
LSAUTO 
sPTR. TO PROTECT TABLE 
LSPROT 
0 sTEST NUMBER 
0 sDELAY COUNT 


sPTR. TO HIGH MEM 


SEQ 17 





aE 


SEQ 18 
CZTUZAO TU8O FRONT END PRT D MACRO M1200 29-MAR-83 15:43 PAGE 14 : 
DEFAULT HARDWARE P-TABLE 


Le 14 -SBTTL DEFAULT HARDWARE P-TABLE 
739 3+¢ 
740 s THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
741 : THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
Lg : IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
744 002122 BGNHW ODFPTBL sDEFAULT HARD-P-TABLE 
002122 000003 eWORD 1£110000-LSHW/2 
00212 LSHW:: 
nas 002124 DFPTBL:: 
746 002124 172522 WORD 172522 : 2ND (OF 2) REGISTERS. 
747 002126 000224 WORD 224 : INTERRUPT VECTOR 
0021 000240 WORD PRIOS : INTERRUPT PRIORITY. 
749 002132 ENDHW 
0021 L10000: 


A 
— —— oo ———— _ 


—_= 


el 


SE 


CZTUZAO TUSO FRONT END PRT D 
SOFTWARE P-TABLE 








G 2 
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~SBTTL SOFTWARE P-TABLE 


THE SOFTWARE P-TABLE CONTAINS THE VALUES GF THE PROGRAM 
;_ PARAMETERS TKAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW 

«WORD 
LSSW:: 
SFPTBL:: 


TRANSTCT:: 
NO 


SFP 
10001-LSsw/2 





NABLE RAM DUMP IF =1 
INHIBIT itinate OPTION. 


RATE 
oooNZ = INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 








SEQ 19 


CZTUZAO TUBO FRONT END PRT D 


SOFTWARE P-TABLE 


000035 
000034 


owe ee oe eee 


H 2 
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~SBTTL GLOBAL EQUATES SECTION 


-SBTTL GLOBAL EQUATES SECTION 


THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
z_ARE USED IN MORE THAN ONE TEST. 


EQUALS : GET STANDARD EQUATES. 
> BIT DIFINITIONS 
BIT1S== 100000 


FLAG DEFINITIONS 


F .START== 32. 
F RESTART== 31. 
EF .CONTINUE== 50. 
EF .NEW== 29 
EF .PWR== 





28. 


PRIORITY LEVEL DEFINITIONS 


VENT 
EFS2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS IS 
RESTART COMMAND WAS ISSUED 
CONTINUE C WAS | 

A NEW PASS HAS BEEN STARTED 

A POWER-FAIL/POWER-UP OCCURRED 





SSUED 
SSUED 


SEQ 20 


pa gy TUSO FRONT END PRT D 


EQUATES SECTION 


801 
802 002144 


000340 
000300 
000240 
000200 
000140 
0001 


6 
172516 





1 2 
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PRIO7== 340 
PR z 


PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRI00== 
sOPERATOR FLAG BITS 
EVL== 
LOT== 10 
ADR== 20 
1DU== 40 
ISR== 100 
UAM== 
BOE== 400 
PNT== 1000 
PRis= 
IXE== 4000 
iBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 
T11 








NE MEMORY MANAGEMENT REGISTERS 


sDEFI 
SBTTL MEMORY MANAGEMENT DEFINITIONS 
eRTI1 VECTOR ADDRESS 


C= 
s*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 











UIPDR6= 177614 
UIPDR7= 177616 





UDPDR6= 
UDPDR7= 177636 


NOC 
e hy 8 — P 








oJF NB 
S*USER "'D'’ PAGE DESCRIPTOR REGISTORS 


SEQ 21 


EE ET TTT al 
ee ee 


CZTUZAO TUSO FRONT END PRT D 
MEROR 


Y MANAGEMENT DEFINITIONS 


ey ee 
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UIPAR 

UIPAR?= 177656 

@USER "'D'' PAGE ADDRESS REGISTERS 
UDPARO= 177660 










UDPAR6= 177674 
= 177676 


~IF NB 
s*SUPERVISOR ‘‘I*’ PAGE DESCRIPTOR REGISTERS 
IPDRO= 172200 





SIPDR6= 172214 
S1POR?= 172216 
S#SUPERVISOR 'D’’ PAGE DESCRIPTOR REGISTERS 





NDC 

Pha do * PAGE ADDRESS REGISTERS 
SIPARO= 1 yeene 
SIPARI= 172242 
SIP 172244 







SIP, 172246 

yr ee 
ARS= ree3e 

SIPARGS 172254 

SIPAR7= 172256 

gesurenvises ">" PAGE ADDRESS REGISTERS 

SDP, 172260 

SDPARI= Hh 62 

SOPAR : 172264 

SDPARS= 172266 

SDPAR4= 172270 





SEQ 22 


' 
Nee ce a ee NR 


eee we ees OO ~ 


CZTUZAO TUBO FRONT END 
MEMORY MANAGEMENT DEFINITIONS 


172316 


17 
172356 
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SDPARS= 172272 
SDPAR6= 172274 
ae 172276 





172312 
KIPDR6= 172314 
KIPDR7= 172316 


IF NB 
s®@KERNEL ‘D'’ PAGE DESCRIPTOR REGISTERS 
= 172320 






KDPDR4= 1723 

KDPDRS= 172332 

KDPDR6= 17 

= 172336 

s@KERNEL ‘I'’ PAGE ADDRESS REGISTERS 


KIPARO= 172340 
KIPARI= 172342 
KI 172344 










KIP 172346 
case 179350 
PARS= Wreaee 


RIPARG= 1 
KIPAR?= 1975386 
s@KERNEL ‘'D’’ PAGE ADDRESS REGISTERS 


KDPAR1= 172362 
KDPAR2= 172364 


KOP. 172366 
KDPAR4= 172370 
Hc + 
KDPAR6= 172374 

y a 172376 

















SEQ 25 


- —— ee ee 


' 
; 

—— nanan 
enn 


—— nnn 








CZTUZAO TUBO FRONT END 
TUBO REGISTER AND PACKET DEFINITIONS 


PRT D 


L 2 
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~SBTTL TUBO REGISTER AND PACKET DEFINITIONS 


: SOME GENERAL EQUATES. 
ERRVEC== 
TTIVEC== INTERRUPT VECTOR 


60 ; 
TTICSR== 177560 ; BUS ADDRESS OF CONSOLE INPUT 
TTIBFRe= 177562 ; CONSOLE INPUT DATA BUFFER 


3+ 
:BIT DEFINITIONS FOR TSSR REGISTER 


sC= B1T15 sSPECIAL CONDITION 
BIE= BIT14 

SCE= B1T15 

RMR= BITI2 

NXM= B61T11 

NBA= 861710 

HIADDR= BIT9!BITS 

SSR= ss BIT? 





F LINE BIT 
FATAL TERMINATION ERROR CODES 
TERMINATION CODES 


OFL= nite 
FATERR= B1T4!B1T5 
TERCLS= BIT3!B1T2!8111 


+ 


“BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
3 (xsTO) 


XSOTMK= B1T15 sTAPE MARK DETECTED 









sVOLUME CHECK BIT 
PHASE ENCODED DRIVE 
WRITE LOCKED 
3BEGINNING OF TAPE 
XSOEOT= B1T0 sEND OF TAPE 






xSOBOT= B1T1 


3¢ 
——<— FOR EXTENDED STATUS REGISTER 1 


POINTER TO ERROR ee te FOR BUS TIME OUT. 
FOR CONSOLE INPUT 


SEQ 24 


—s —- --—- = 


EE LS ee ee ee ee 


CZTUZAO TU8O FRONT 


Sess S ees eSSssEsz 


ssssessssss 
COONS UF WIN © 


3 





SoSS 


100000 
040000 
020000 
017375 
000400 
000002 


ee a ee 


nH 2 


END PR MACRO M1200 29-MAR-83 15:45 PAGE 18-1 
TU8O REGISTER AND PACKET DEFINITIONS 


X1.DLT = BITI5 


sDATA LATE 
X1.SPARE= ara sNOT USED 





X1.COR = BIT13 ;CORRECTABLE DATA ERR 
X1.MBZ = BIT16B!111+B1110¢B1 T9981 T7961 ovBITS+B1Te%BITS9B1T20B170 sALWAYS 0 
X1.RBP = BITS READ BUS PARITY ERR 


X1.UNC = BIT1 SUNCORREC TABLE DATA OR HARD ERROR 
aa 
_— FOR EXTENDED STATUS REGISTER 2 


X2.0PM = arti? 


X2.RCE = BIT CHECKS 
“5 es BIT Seo1r 12081111 0B1T9°BIT8 sNOT Y TU8O (ALWAYS=0) 


M2.EXTF = GIT? IF 
X2.BUFE = BIT6 


X2.REV_ = 000077 
X2.UNIT = BIT2+BIT1+B1T0 


@e Ge Ge 
Qag Gene ee 
nm 


s@ 
a FOR EXTENDED STATUS REGISTER 3 


X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 


X3.SPARE= 6117 sNOT USED BY 

X3.0P1 = BIT6 OPERATION INCOMPLETE 
KX3.REV = BITS ;REVE 

KS.TRF = BIT4 TRANSPORT RESPONSE FAILURE 
X3.DCK = BITS DENSITY CHECK 

X3.MBZ =BIT2+B1T1 sNOT USED ALWAYS 0 

X3.RIB = BITO REVERSE INTO BOT 

3+ 

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 

3 (XST4) 

X4.HSP = BIT15 sHIGH SPEED 

X4.RCE = BITI4 :RETRY COUNT EXCEEDED 

X4.1 = B1T13 RANSPORT SPECIAL MODE 
X4.MBZ = BITi2+ eprritopiTioveit9%giTe sNOT USED ALWAYS 0 
x4.WRC = 000577 ITE RETRY COUNT FIELD 


me 


STSSR TERMINATION CODES (BIT 0-2) 


TSREJ= 3¢2 sCOMMAND REJECTED 
UNREC= 6 SUNRECOVERABLE ERROR 


+ 


sDEVICE REGISTER OFFSETS 


eee - ERROR (TAPE MOVING) 


USED 
CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 
TE CHAR THEN = EXTENDED FEATURES ENABLED 
NG ENABLED 
WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
F GET STATUS THEN = CURRENTLY SELEC 


SEQ 25 


; 
a ES A LT 


EE eee 


LLL LLL LO 


—— nl 
—— <eeseeeeeceeee sc LL LLL LLL 


- ee + en ee ee ee ~ 


CZTUZAO TU8O FRONT END 
TUBO REGISTER AND PACKET T DEFINITIONS 


177776 


000003 


N 2 
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TSSR== 0 
TSSRH== 1 


; TS0B ADDRESS BIT DEFINITIONS 
A1716 = BIT1+BITO 


+ 
¢_ COMMAND DEFINITIONS 


p. “GETSTAT = 17 
P. INIT = 13 
P. CONTROL = 12 
T = 11 
P.POSITION = 10 
eWRTSUB = 6 
P.WRITE = 5 
P .WRICHAR = 4 
P.READ = 1 


P.ACK = BIT15 


= BITI2 
P.MODE = BITITIBITIO!BIT9!BITS 
P.IE = BIT7 
P.FMT= BIT6!BITS 
P.CMD 66= 37 


:_conTROL COMMAND MODE CODES 


PC .RELEASE = 0*256. 
PC REWIND = 1#256. 
PC .NOOP = 2*256. 
PC. JEREW = 4*256. 
PC .ERASE = 5*256. 


‘ + 7 
+ CONTROLLER RAM DEFINITIONS 
RNCHBEG = 167 
RMCHEND = 200 
BEG= 20 
RMPKTEND= 27 
RMMSGBEG= 104 — 








;TSDB/TSBA REGISTER 
;TSDB/TSBA REGISTER 


;TSDB/TSBA REGISTER HIGH BYTE 
:TSSR REGISTE 
;TSSR REGISTER HIGH BYTE 


sADDRESS BITS 17;16 ARE IN 1;0 


GET STATUS 


INITIALIZE 


CONTROL COMMANDS 
;FORMAT 


sPOSITION 
;SUBSYSTEM WRITE 


SWRITE 
SWHITE CHARACTERISTICS 
;READ 


COMMAND PACKET HEADER WORD BIT DEFINITIONS 


;BUFFER AVAIL FOR CONTROLLER 
sCLEAR VOLUME CHECK 

SREVERSE SEQUENCE OF DATA BITS 
sSWAP BYTES MEMORY 

SEXTENDED COMMAND MODE FIELD 

; INTERRUPT 


ENABLE 
SPACKET HEADER Ley (ALWAYS=0) 
SMAJOR COMMAND FIELD 


sRELEASE BUFFER 
; REWIND 


:NO-OP 
REWIND IMMEDIATE INTERRUPT 
SECURITY ERASE 


;CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
: CHARACTERISTICS 10 DATA END RAM ADDRESS 
:COMMAND PACKET BEGIN RAM ADDRSSS 





; COMMAND PACKET END RAM ADDRESS 


SEQ 26 





CZTUZAO TU8O FRONT END 
TU8O REGISTER AND PACKE 


978 


979 





000117 


000010 


000200 


2 


7 
PRT D MACRO M1200 29-MAR-83 13:43 PAGE 18-3 SEG 2 
T DEFINITIONS | 


RARSGEND= 117 sMESSAGE BUFFER END RAM ADDRESS 


“REGISTER DEFINIT'ONS IN THE MESSAGE BUFFER 


XSTO== 6 sEXTENDED STATUS REGISTER 0 (WORD 4) 
XSTis= 8. sEXTENDED STATUS REGISTER 1 (WORD 5) 
xST2== 10. sEXTENDED STATUS REGISTER 2 (WORD 6) 
XST35== 12. sEXTENDED STATUS REGISTER 3 (WORD 7) 
MST4== 14. sEXTENDED STATUS REGISTER 4 (WORD 8) 


E 
; | 
OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 





PKLOW = 2 sLOW ORDER CHARACTERISTIC DATA POINTER 
PKHI = 4 HIGH ORDER CHARACTERISTIC DATA POINTER 
PKBCNT = 6 ;NUMBER OF BYTES IN DATA PACKET 
EXBCNT=10 sNUMBER OF BYTES IN EXTENDED DATA PACKET 


3+ 
sDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


BSELO =0 sBYTE 0 
BSEL1 = 1 sBYTE 1 
SEL2 = 2 sWORD 2 
SELDATA = 4 sWORD 3 


3+ 
sBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 


———— - 





WRITE TAPE FORMAT 
sWRITE MISCELLANEOUS 
sWRITE NPR CONTROL 






ROTES! 13 
SDISABLE MICROTEST 11 AND 15 
“READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 





MINIMA —@§ @ NOUS WO 


29 
*BSEL1 CODES FOR WRITE TAPE CONTROL 
WC. IFAD = BIT7 -IFAD = FORMA P ADDRESS «ss ee 


Fun © “© 
= 
exe ome FTI FT FTE 
3 
4 
m 
7] 
—4 
—_ 
=> 


CZTUZAO TU8O FRONT END 
TU8O REGISTER AND PACKET DEFINITIONS 


000100 
0 






ond 
f — ) 


ee 


PRT D 





WC.IOTAD = BITE 
WC. 11TAD = BITS 
WC. ISRESV = BITS 
wC. IREW = B1T3 
WC.IRWU = Bile 
WC. IFEN = BIT 
WC.1G0 = BITO 
3+ 

sBSEL1 CODES FOR WRITE 
WF .IHISP = BIT? 
WF. IWRT = BIT6 
WF .IREV = BITS 
WF .IWFM = BITS 
WF JEDIT = BITS 
WF . JERASE = BIT2 
WF. ISRESV = BIT 
WF .I4RESV = BITO 


3¢ 
sBSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 


MS.EXT = BIT7 
MS .RSFIFO = BIT4 
MS .RSTAPE 


MS.ATIN 
D 


3¢ 
; MS.ATTN SUBCODES 


MSA.NRAM= 2*2 
MSA.FRAM= 35*2 


c 5 
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FORMAT 


= B1T3 
= BIT2!BIT1 
= B1T0 


SEQ 28 


sITADO = TRANSPORT ADDRESS BIT 0 
Se eys - TRANSPORT ADDRESS BIT 1 


RESERVED #5 
EWIND 


SIRWU © REWIND AND UNI.OAD 
:1FEN - FORMATTER ENAGLE 


s IHISP - HIGH SPEED 
; IWR © WRITE 


T I 
:IREV - REVERSE 
sIWFM == WRITE FILE MARK 
sHeDIT  - - EDIT 


RASE - ERASE 
SIRESVS = RESERVED #3 
SIRESVG = RESERVED #6 





INVERT SENSE OF EXTENDED FEATURES SWITCH 
sRESET FIFO AND INPUT PARITY ERRORR 

RESET TAPE STATUS 7 2 FLIP-FLOPS 
SATTENTION TRIGGER FIELD 
SRESET TIMER A,B THEN DELAY TIMES IN SEL2 





sNO-OP (NOTHING TRIGGERED) 





3¢ 
3 WRITE SUBSYSTEM WRITE NPR SSEL1 BIT DEFINITIONS 


NP.IR = B117 
NP.OUT = BIT6 
NP.LOOP = BITS 
NP .WRP = BIT4 


DOOoswoooaaqe 
aemsm per) Ga Fore Greg Geng ng Peas Rey 
erm cat) ed ond eG aad] cul anc} nad oh 


$1. 11RESV 





BIT0 


s INTERRUPT REQUEST (0-1 TRANSITION) 
sTAPE DATA aeaiee ce ouT - IN) 


sENABLE TRANSPORT LOOPBACK 
SWRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


3¢ 
s READ STATUS MESSAGE BUFFER BIT DEFINITIONS 


s WORD #9 BYTE 2 og IN MISS 
‘ OUT ROY H 
: IN RDY H 
: TIMER A FLAG H 
: TIMER B FLAG H 
3 (UNDEF INED) 
:WORD #8 BYTE 1 PARIN H 
IRESV2 





al ~ - 
— ne 
EE I 


ein RE 


~-— we ee eee — - EE Eee 


CZTUZAO TUSC FRONT END PRT D 
Tuo REGISTER AND PACKET DEFINITIONS 

1092 010000 
1093 004000 
1094 002000 
1095 001600 
1096 0004 
1097 000200 
1098 000100 
1099 000040 
1100 000020 
1101 000010 
1102 000004 
1103 000002 
1104 000001 
1105 

1106 

1107 177560 
1108 7562 
1109 177564 
1110 77566 
1111 007776 
1112 

1113 74400 
1114 174402 
1115 4404 
1116 174406 
1117 

1118 

1119 

1120 000004 
1121 000006 
1122 000010 
1125 000014 
1124 000016 
1125 

1126 000001 
1127 000015 
1128 177730 
1129 000006 
1130 000177 
1131 100200 
1132 

1135 071566 
1134 560 
1135 177562 
1136 177564 
1157 177566 





$1. 1E€0T 


$1. 1FMK 


$1.1 IDENT 
S1.1CER 


$1. 1HER 
$0. ISPEED 
$0. IRDY 


$0. IFPT 


CSR 
BAR 
DAR 
MPR 






oth ae wet 
o—rmy 


aoannunnunnnnnunh we 
@aqaoawowvooq.a0o 
ao Pend Ome Gene Genk GO ent Oa Ot ee 

ee) ed ea ad ad ed wt st 
SUH NUFASNOO 


KEYBORD STUFF FOR MOVER 


04 
=174406 


do 3 
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CONTROLLER COMMANDS 








SEQ 29 


wn 
z 

z= 
x 


ewe tent Seeg hawt 
=saAso0 
eo 


eceeeeererors 


; WORD #8 BYTE 0 


e352e% 


e @e @e Ge Ge Ge Ge Ge Ge @s Ge Ge Ge 
Qos Deeg Peas bee 

es es | 

ve 

~~ < 


PROGRAM 
SKEYBOARD STATUS REGISTER 
“KEYBOARD DATA REGISTER 

“CONSOLE PRINTER STATUS REGISTER 


SCONSOLE PRINTER DATA REGISTER 
SHIGH MEMORY MASK VALUE 


:STATUS AND CONTROL REGISTER 
sDL ADDRESS REGISTER 


TTER ADDRESS 
sMULTIPURPOSE REGISTER 














;GET STATUS COMMAND 
SEEK TRACK AND HEAD SELECT 
;READ SECTOR HEADER 


sREAD COMMAND 

[READ SECTOR NO HEADER CHECK 
sDRIVE READY BIT IN STATUS REG. 
: STATUS AND RESET 

MASK FOR COVER OPEN 

HEADS 


UNLOADED 
MASK FOR CYLINDER ADDRESS 
DONE SET OR ERROR SET BITS 


serve OF THE BOOT ROM @aaee 
T STATUS 


A REGISTER 
SCONSOLE PRINTER STATUS REGISTER 
SCONSOLE PRINTER DATA REGISTER 



























—— ee ell 





—E 3 
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SPECIAL MACROS AND OPDEFS. 


SEQ 50 


Ate ~SBTTL SPECIAL MACROS AND OPDEFS. 
1141 

1142 7¢ 

1143 sSAVE GENERAL REGS : TO 5 

1144 := 

1145 

1146 -MACRO SAVREG 

1147 JSR RS ,REGSAV 


& 


& 
o 


: MACRO TO FORCE AN ERROR 
=WACRO FORCERROR TAG ,NOTSSR 
“LIE NDF LISTALL, .NLIST 


ol 
- IF B NOTSSR 


as MOV TSSRCRS) RI SREAD TSSR 
; MOV FORCER, FORCER 1S FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG BR IF YES 


oNLIST 
olIF NDF LISTALL, .LIST 
LIST 


le cee a ee ee ee eee ee nn oe 
LEAFERISSSVSERLUNYLS 


+ 








ee ee ee ec ee cee ee ce ee ce et ce ce cd ed ced ct et ce et ce ee et ced ce et 8 ed ed ed ed ed 8 ed ed ed ed ed ed ed ed eed et nd eed ed 


168 * MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
169 : WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

170 : SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

171 : FORCER 10 17 

He 3 3 TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 
174 eMACRO FORCEXIT TAG 

175 eNLIST 

1 rt el LISTALL. .NLIST 

178 MOV FORCER .FORCER s1S FORCER NEGATIVE? 
179 BAT TAG BR IF YES 

180 oNLIST 

181 LIF NDF LISTALL, .LIST 

182 oLIST 

183 ‘ 

184 3¢ 

+ s MACRO TO INCREMENT ERROR COUNTS 

187 MACRO NEXT.ERRNO 

188 oNLIST 

189 sscelIF NDF LISTALL. .NLIST 

190 ERRNO=ERRNO?+1 

191 ssgeAIF NDF LISTALL, .LIST 

192 LIST 

193 ~ENDA 

194 

195 7+ — 


———— Ee LLL LO 


EE ELLE LLL LLL LLL LLL LEE ees ee ee ee al — 
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SPECIAL MACROS AND OPDEFS. 


SEO 31 


z 


sMACRO TO PERFORM XOR 





1197 °. 

1198 

1199 .MACRO XOR A,B 

1200 MOV A,=(SP) 

1201 BIC 8. (SP) 

1202 BIC A.B 

1203 BIS (SP)+,B8 

1204 .ENDM 

1206 000000 EN=0 INITIALIZE ERROR NUMBER 
1207 “SBTTL FORCER = FORCE ERROR FLAG 

1509 

1210 : THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 

1211 : TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

1213 : 

1214 002144 000000 FORCER:: 0 FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1215 ; = BY vy THE MACRO "IFERROR'). AN ERROR NEED NOT 
1216 ; = EXIST, JUST ASSUME AND TYPE THE MESSAGE. 

1218 


ea LLL LL —— ne — 
, - - - 
ee ee ee 


Cm Aa ee 


_ 
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CZTUZAO TUBO FRONT END PRT D SEQ 32 


GLOBAL DATA SECTION 


1258 32 
1259 002576 
1260 002716 






























sRECEIVED MESSAGE BUFFER — 
TEMPORARY STORAGE FOR 


1221 ~SBTTL GLOBAL DATA SECTION 
1 
1226 THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
1225 :IN MORE THAN ONE TeST. 
1226 _ 
1227 
1228 
1229 : THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
ice ; SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 
1232 002146 000000 eWORD 0 sPRINT SWITCH 
1233 002150 000000 WORD 0 UNIT @ ete TEST. 
1234 002152 000000 -WORD 0 QUICK VERIFY FLAG. 
1235 002154 000000 ~WORD 0 sADDRESS OF CSR FOR CURRENT DEVICE 
1236 002156 000224 eWORD 224 INTERRUPT VECTOR 
1237 002160 000200 -WORD PRIO4 ZINTERRUPT PRIORITY 
1238 0021 000090 WORD 0 “NUMBER OF TESTS RUN IN THIS PASS 
1239 002164 000000 WORD 0 [REMAINING ITERATION COUNT FOR TEST 
240 002166 000000 eWORD 0 sNUMBER OF DEVICE UNDER TEST 
1241 002170 000000 WORD 0 SET IF FATAL ERROR IS DETECTED IN TEST 
2 0021 000000 . 0 INTERRUPT WAS orf tenn 
1243 002174 000000 ‘ 0 
1244 002176 000000 ° 0 
1245 002 000000 . 0 
1246 002202 000000 ° 0 GH SS MEMORY ERROR 
1247 002204 000000 . 0 LUW ADDRESS MEMORY ERROR 
1248 002206 16. A READ FROM RAM PACKET OR MESSAGE BUF AREA 
1249 002246 000000 0 ROUT INE 
002250 000000 0 
1251 002252 000000 0 
1252 002254 000000 0 
1253 002256 000000 0 
002 000000 0 
1255 002262 000000 0 
1256 002264 000000 0 TEMP 
1257 002266 100. SEXPECTED MESSAGE BUFFER DATA 
0024 100. 
80 
000000 0 














E PRINT 
SSTORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 


TSTBLK 


1262 
1263 
1264 
1265 
1266 


~ 
See 
o 
~d 


VSSRSS33 





cade ut col ced ee eet we wed A a ed) gd ok ons aed cet cad ce eed eet cot red emul ee et wD 
MOR 


SSISSSLSAFESSS IS 


SS3ZzF32 


See 
REP: 


SSSS3ssss 
EERE ES 
Sas 

3338 S383 


ee et ed ee ce ee ee ed ed ed ed eed ed et ed od ed ed ee ed 
ad Lad Lad Ld Ud 
wh) wo adh td ol 
Wr & Ua Rp 
Sees 


—s 
Nad 
oy 
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- TEST DATA TABLE 
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-¢ 


~SBTTL TSTBLK 


- TEST DATA TABLE 


“THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 


SIN SEQUENCE THE DATA IS: 
ALL ZEROS 
ALL ONES 


WALKING ONES 
WALKING ZEROS 


ia R 
ALTERNATING ONES AND ZEROS 





TBLEND==. 





sALL ZEROS 
; ONES 
sDATA FOR WALKING ONES 


sDATA FOR WALKING ZEROS 


gALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


SEQ 35 







1 3 
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GLOBAL ENVIRONMENT STORAGE 


SEQ 54 




















1317 \SBTTL GLOBAL ENVIRONMENT STORAGE 
1319 “STORAGE FOR DEVICE REGISTERS 
1321 003030 000000 100000 000000 Dummy: 9,109000.0 sDUMMY DEVICE REGISTERS... 
1322 003040 000000 000000 000000 0'0,0,0,0,0,0,0 
1323 seeeFOR MULTI-UNIT CHECKOUT. 
1398 
1326 003060 000000 WORD 0 ;"“DROPPED UNIT’’ FLAG. 
7 SINHIBITS CODE IN CLEAN-UP". 
1328 003062 000000 .WORD 0 “FLAG TO SAY NO DEVICE. 
00 000000 .wORD 0 sSOME TEMP LOCATIONS. 
1331 003066 000000 “WORD 0 
332 003070 000000 “WORD 0 sXXDP+ COMM BLOCK POINTER. 
1333 003072 000000 “woRD 0 71ST FREE MEMORY ADDRE 
003074 000000 “woRD 0 Bey 
1335 003076 000000 “WORD 0 LAST 
1336 003100 000000 “WORD 0 :KT11, REM AVAIL FLAG 
WORD < : <24K OR NO KT - 
© NZ = >24K AND K 
1339 003102 000000 KTENABLE: : .woRD 0 “SET BY TEST ROUT INES TO FLAG >28K UNDER TEST 
003104 002000 PST32U:: “WORD 2000 :32u BLOCK ADDRESS FOR 32k STAR 
1 003106 000000 SIFLAG:: WORD 0 
342 003110 000000 BADDAT: : “WORD 0 “ACTUAL DATA 
1343 003112 000000 GDDAT:: “WORD 0 SEXPECTED DATA 
1344 003114 000000 LOOPFL: : “WORD 0 
1345 003116 CTAB: : CONFIGURATION TABLES. 
1346 003116 000000 CTABM: : .wordD 0 [CONFIG WORK. 
1347 003120 000000 “WORD 0 
1348 003122 000000 “woRD 0 
1349 003124 000000 “WORD 0 
1350 003126 177777 “WORD -1 END OF MEM TABLE. 
1351 003130 CTABE:: 
1352 “ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 
1354 : 0 = UNIT NOT TESTED 
1355 ; 100000 = UNIT ONLINE, NO ERRORS 
1356 : 1OXXXX = UNIT ONLINE, ENCOUNTERED XXXX ERRORS 
1357 : 160000 = UNIT D. NON-EX KISTENT DEVICE REGISTER 
1358 ; 160001 = UNIT DROPPED, NOT IDLE AT STAR 
Ht +4 ; I4XXXX = UNIT DROPPED, ENCOUNTERED XXXX T ERRORS 
1361 003130 ERTABL: .BLKU 64. 
1362 003330 000000 ERTABE : : 0 
1364 003332 000000 SKIPT: .WORD 0 :1sSKIP SUBTEST O=NO SKIP OF SUBTEST 


ee 
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GLOBAL TEXT MESSAGES 















SEQ 55 


















1366 2 .SBTTL GLOGAL TEXT MESSAGES 
1368 : THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
1369 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
1370 : MORE THAN ONE TES!. 
1371 320 
1372 
1373 
1374 
1375 3¢ 
16 *NAMES OF DEVICES SUPPORTED 
1378 
1379 003334 DEVTYP <TUB8O> 
003334 LSDVTYP:: 
003334 124 125 070 -ASCIZ /TU80/ 
EVEN 
1380 
1381 3+ 
1382 sTEST DESCRIPTION 
1384 003342 DESCRIPT <CZTUZAO TUSO FRONT END PRT D> 
003342 LSDESC:: 
003342 103 132 124 +ASCIZ /CZTUZAO TUBO FRONT END PRT D/ 
1385 
1286 
1387 
1388 3¢ 
1389 “BIT TO ASCII CONVERSION FOR TSSR REGISTER 
1391 : 
1392 003400 003440 003443 003447 TSSRBIT:: .WORD 1$,28,38,4%,5$,68,78.8S 
1393 003420 003501 003505 003511 "WORD 98,108,118, 128,138, 14S, 158, 16S 
1394 00 123 103 000 1$: ~ASCIZ 'SC° 
1395 003443 102 111 105 2S: ASCIZ "BIE" 
1396 003447 123 103 105 3$: ~ASCIZ "SCE’ 
1397 003453 122 115 122 4$: -ASCIZ "RAR" 
1398 003457 116 130 115 5$: -ASCIZ "NKR 
1399 003463 116 102 101 6$: -ASCIZ "NBA’ 
1400 003467 102 111 124 7$: -ASCIZ ‘BIT9" 
1401 102 111 124 8$: .ASCIZ “BIT8" 
1402 003501 123 123 122 98: -ASCIZ "SSR® 
1403 003505 117 106 1146 10$:  .ASCIZ ‘OFL' 
1404 003511 102 111 126 11$:  .ASCIZ ‘BITS’ 
1405 003516 102 111 124 12$:  .ASCIZ ‘BIT4' 
1406 003523 102 111 126 13$: .ASCI2 ‘BIT3' 
1407 003530 102 111 126 16$:  .ASCIZ ‘BIT2" 
1408 003535 102 111 126 15$:  .ASCIZ ‘BIT1" 
1 2 102 111 124 16$: -ASCIZ *B1T0" 
124 123 123 SFIERR: .ASCIZ ‘TSSR ERROR AFTER SOFT INIT’ 
124 123 123 SFHERR: .ASCIZ ‘TSSR ERROR AFTER BUS RESET’ 
040 040 116 WHR:  .ASCIZ / WON-EXISTANT DEVICE REGISTER/ 
045 101 040 WXRX:  .ASCIZ /ZA ADDRESS: 
045 101 060 TSSX: ASCII /%ZA TSBA,TSSR EXP'D: Z06ZA,Z062N/ 
1416 003756 1 040 A /ta_ 'D: 





OE ~ 
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GLOBAL TEXT MESSAGES 


SEQ 36 
















1417 004015 045 116 045 FUSI: .ASCII /2ZNZA/ 
1418 004021 040 040 125 USI: eASCIZ / UNEXPECTED INTERRUPT/ 
1419 004050 040 111 NWSI: eASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 
1 004113 045 116 045 FNOINTR: ASCII A/ 
1421 004117 040 116 WNOINTR: .ASCIZ / WO INTERRUPT WAS GENERATED/ 
1422 004154 040 111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 
1423 004176 045 101 040 INTX: .ASCIZ A CPU PC: Z06ZA TSBA: %06/ 
1424 004233 040 040 042 NOINIT: .ASCIZ BUS-INIT"’ DIDN'T INITIALIZE CONTROLLER/ 
14 305 040 040 042 NSINIT: .ASCIZ / “SOF T-INIT" DION’T INITIALIZE THE DPU/ 
bre 004355 040 040 042 BRINIT: .ASCIZ / ‘'BUS-RESET’’ DIDN'T INITIALIZE THE DPU/ 
1428 004425 000 NUL : eASCIZ 
1429 004426 045 116 000 WNULCR: .ASCIZ /3N/ 
1430 004431 045 101 040 EXPGOT: .ASCIZ /ZA EXP’ D: ZO6ZA, REC'D: 206/ 
1431 004465 045 116 045 EXPGT2: .ASCIZ /2ZNZA EXP’D: 206 ZA REC'D: ZOZA, 206/ 
1432 004541 045 101 040 12: .ASCIZ /ZA REG(W) WRITTEN TO: Z06ZA REGC(R) READ; EXP"D: ZO6ZA, REC’D: %06/ 
1433 004643 122 101 115 PKTRAM:: .ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
1434 004711 040 040 103 eASCIZ / CONFIG fT MATCH MFG. MASTER/ 
1435 004754 127 122 111 eASCIZ ‘WRITE CHARACTERISTICS Failed’ 
1436 005011 124 123 123 .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR* 
1637 005104 124 123 123 oly "TSSR Incorrect After READ Command, More Bits Set Than SSR’ 
1439 


ee ee ee 
nnd ween 


1450 
1451 005176 
1452 005176 


16 
1453 005222 
1454 


005226 
005226 


00 
1466 005262 





6 013746 


005727 
000000 
001402 
004777 


242 012746 
46 


CZTUZAO TU8O FRONT END PRT D 
GLOBAL ERROR REPORT SECTION 


003062 
003675 
000002 


000006 
005250 


177770 
004426 
000001 


06 000004 





L 3 
MACRO M1200 29-MAR-83 13:43 PAGE 24 


»SBTTL GLOBAL ERROR REPORT SECTION 


i? 


; CALL 


110002: 


EXTEND: TST 
EXTA: 0 


JSR 
1$: PRINTX 


ADD 
RTS 


UStd IN 


@NXRX ,NODEV 
NODEV,-(SP) 


# 
PC EXTEND 


CSMSG 


(PC)+ 





; THE eat ye age’ as toe ye THE PRINTB AND PRINTX 
; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 


sNON-EXISTANT DEVICE REGISTER. 


sNODEV = NEXM ADDRESS. 


; PRINT EXTENSION IF REQUIRED. 


THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 


; 0 = NO EXTENSION. 


: RINT EXTENSION TEXT. 
PRINT A BLANK LINE 


SEQ 37 


ee 
A ee as 


ee ET TT — ee ee ee ee 


A ET SS 
ee See Qe ee eee ee = - = 


cones TU8O FRONT END PRT D 
PRITSSR - PRINT TSSR CONTENTS 


1486 

1487 005264 

1488 005264 

1489 005270 

1490 005272 
005272 






6 
005274 012746 
005300 


005304 
005306 
005310 

1491 005314 
2 005316 
012746 


012746 
0600 
104415 


a858 
PP} 


SSSsorass 
o 
i=) 
— 
ot 
a 
S 





we weed ee con ond add end ad ond an cad 


aa 





FES 
ceed caste corey 
™Mm—© 


012746 
012746 


005424 


000054 177777 


002576 
006277 
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SBTTL PRITSSR - PRINT 7SSR CONTENTS 

7* 

“ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
“THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
{BY A MESSAGE PRINTING ROUTINE 

S INPUTS: 

: RI CONTENTS OF TSSR 

“SUBORDINATE ROUTINES: 


CHKAMB CHECK FOR AMBIGUOUS CONTENTS 


PRITSSR: 


GS oe EE SEE ae 


sSAVE GENERAL REGISTERS 


3SAVE THE TSSR C 


MOV R1,R 
PRINTB STSSRFOR,RG 
MOV R4,-(SP) 
MOV #TSSRFOR,-(SP) 
#2,°(SP) 















JSR SARE CONTENTS AMBIGUOUS ? 

BCS % sBRANCH IF NOT 

PRINTX #AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
MOV #AMBTSSR,-(SP) 

MOV #1,-(SP) 

MOV SP,RO 

TRAP CSPNTX 

ADD SP 





5$: MOV R3 
ok #HLADDR!FATERR! TERCLS. a3 


MOV STMPBFRR2 
MOV #TSSRBIT RI 


sCONTENTS OF TSSR 


NO BITS ARE SET 
sTEMPORARY ASCII 














10$: TST R3 SREMAINING BITS TO CONVERT 
BEQ 15$ SBRANCH WHEN ALL ARE DONE 
CLC CLEAR CARRY FOR SHIFT 
ROL R3 SSHIFT NEXT BIT TO CARRY 
BCC 13$ sBRANCH IF BIT NOT SET 
MOV (R1),RO ;POINTER TO BIT DEFINITION 
118: MOVB (RO) +, (R2)+ E ASCIZ TO BUFFER 
BNE ALL BITS 
MOVB = #" ,, = 1 (R2) A COMMA TO TERMINATE 
13$: TST CR1)+ sPOINT TO NEXT DESCRIPTION 
BR 108 : a 
15$: CLRB = = (R2) TERMINATE THE 


PRINTX #TSSDEF ,@TAPBFR 
MOV STAPBFR,-(SP) 
MOV #@TSSDEF ,-(SP 








ONTENTS 
SPRINT THE CONTENTS OF TSSR 


;GET TSSR BACK FOR CHKAMB 


CLEAR ALL MULTIPLE BIT FIELDS 


a BUFFER 
sASCII EQUIVALENT OF BITS 


NATE THE LINE 
sPRINT THE BIT DEFINITIONS 


SEQ 38 


; 
ee oo Lhe 


— A A AO 


- — ann 
ee eee 


26 


eee 


CZTUZAO TUS8O FRONT END PRT D 


WUAWVVUAAU 
NN 
=—=O0OM@ 
wi 
wi 
erat 
° 


eed ced ee od cD ed cod od 

MURITORD 

wi & WIRD 
Sssss 

ViUnVuIu 

CU Un 

AD ed nd et 

MO rn 


005540 
1526 005544 
1527 005552 
1528 005554 


1529 005560 
1530 005562 
005562 


wa 
ed 
a 
S 
Se 


tet ek eh ed ts mh ed 
pede 
SALAS 


012746 


0600 
36 104415 
062706 


PRITSSR - PRINT TSSR CONTENTS 


000002 
000006 
177761 
006370 


006167 
000002 


06 000006 


001005 
5626 012737 


013737 
012746 


005646 Bf Hes. 
10600 


104414 


062706 
005662 012737 
000207 


045 


177717 


006750 


006250 
000002 


000006 
000031 
176377 


006126 
000002 


000006 
100210 


006015 
002146 


005672 
002146 


005672 
000001 


000004 
005672 


116 


002170 


002146 


002146 
005644 


002146 





208: 


25$: 


30$: 


318: 


3108: 


32$: 





MCV 
MO 
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#2,°(SP) 

SP,RO 

CSPNTX 
4.SP 


R4,R3 
#°CTERCLS R3 
TCOCOD(R3) .R3 
#TCOASC.R3- 


R3,-(SP) 
#TCOASC ,-(SP) 
age P) 


R4, 
#*CFATERR,RS 
25$ 

R3 

R3 

R3 
TSFCOD(R3) RS 
#TFCASC,R3 
R3,°(SP) 
#TFCASC,-(SP) 
#2,- (SP) 

SP,R 

CSPNTX 

#6,SP 

#25. ,FATFLG 
R4,R 
#*CHIADDR RS 
oe 


& 
#100210,R4 
—- 
310$ 
#EPRT1,EPRTSW 
EPRISW. ;32$+42 
RTI 
SEPRTI.<(SP) 
(SP) 


oe rere ere ———- 


so EAR THE TSSR CONTENTS 


sCLEAR ALL BUT TERMINATION 
GET THE TERMINATION CODE MEANING 
SPRINT THE TERMINATION CODE 


sTSSR CONTENTS AGAIN 
[CLEAR ALL BUT a TERMINATION 
SDON'T PRINT IF ZERO 


sALINE TERMINATION CODE FOR INDEX 
:GET THE FATAL TERMINATION CODE 
SPRINT THE FATAL TERMINATION CODE 


sDROP THIS UNIT AFTER ERROR MESSAGE 


3;GET TSSR CONTENTS 

:CLEAR ALL BUT EXTENDED ADDRESS 
SDON'T PRINT IF ZERO 

SPRINT THE EXTENDED ADDRESS BITS 


s CHECK FOR MEDIA ERROR 

F PROBABLY NOT TAPE ERROR 
:“PROBABLY MEDIA RELETED a - BAD TAPE" 
3 CHECK FOR THE SWITCH EMP 

IF SWITCH IS mo ren 
Set SWITCH TO DEFAUL 
PUT REAL SWITCHABLE MESSAGE IN PLACE 
:PRINT THE ERROR MESSAGE 


sRESET TO NORMAL ERROR POINTER 
;RETURN TO CALLER 


SEQ 359 


wa me ee ee 


—— ee 


1543 005733 
1544 006015 
1545 006106 
1546 006126 
1547 006167 
1548 006230 
1549 77 
1550 006526 
1551 

1552 006370 
1553 006410 
1554 006435 
1555 006461 
1556 006503 
1557 006525 
1558 906605 
1559 006654 
. 006700 
1 

: 0067350 
1 

1 

1 

1 


SESSFELSE 
. 


006410 


ed ed ed aed ed ad ed ed 
SONS Ss. 
VIII SEO 


ma 
7 
oO 


<—D d d d 
mon 
Mrrrn— 


CZTUZAO TU8O FRONT END PRT D 
PRITSSR = PRINT TSSR CONTENTS 


Pi at a at tt 
APAASAASASASS 


ODN eo we ne cee ck etd ob 
~U 


PUNE EO 
=—Oruwnrvwiuw— Ww 


oy 
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asiaiesil RERLLLLS 
VMUWAONMN—|— VMVUVUMVUIUIWU 


bt tet et + tt ee 


: 
$s 


—t at od 
On 
Cad ON Kad 


EPRT2: .ASCIZ 
EPRTS: .ASCIZ 
T OR: 


TSFCOD: .WORD 
1$: 


2$: -ASCIZ 
3$: eASCIZ 
4$: Z 


"ENZA teeeeCHECK PARITY SWITCH IN TRANSPORT#®~«eZS° 
"ZENZA teeeePOSSIBLE MEDIA RELATED ERROR - BAD TAPE*****ZS° 
*ZNZA TSSR = 206° 


eASCIZ 

eASCIZ “ZNBA Extended Address Bits = %06° 
eASLIZ ‘“EZNZA Termination Class Code = T° 
-ASCIZ ‘SZNZA Fatal Termination Class Code = 2T° 
eASCIZ ‘ZNZA TSSR Bits Set: ZT° 

ASCIZ ‘ZENZA TSSR Contents Are Ambiguous’ 


1$,2$,38,48,5$,6$,7$,8$ 

"Normal Termination’ 

"Termination Condition’ 

"Tape Status Alert’ 

"Function Reject’ 

*Recoverable Error - Tape Position One Record Down’ 
*Recoverable Error - Tape Was Not Moved’ 
"unrecoverable Error’ 

"Fatal Controller Error’ 


1$,28,38,4$ 

"Internal Diagnostic Failure’ 
"Reserved' 

"Bus Interface or Sanity Check Error’ 
*Reserved' 





SEQ 40 


; 
—_ ee ae 
wee ee a ee ee 


— i. mm 


<> ee eee eee ——————— mem eae 
—s a —— eee - 


CZTUZAO TUBO FRONT END PR 
PRIPKT 


01000 
005737 005102 
00100 
00500 
010301 
0104 
0061 
006101 
0104 
010146 
012746 007266 
012746 000005 
010600 
104414 
062706 000010 
010300 
1404 
010401 
737 020256 
010004 
005001 
012402 
010246 
010146 
012746 007230 
012746 000005 
610600 
104414 
062706 000010 
00520 
020105 
002762 
012746 007323 
4 es 000001 
104414 
062706 000004 
000207 
045 116 
045 116 
045 116 
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- PRINT THE ADDRESS, CONTENTS OF COMMAND PA 


-SBTTL PRIPKT = PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 


RO NUMBER OF WORDS IN PACKET 

: R3 HIGH ORDER COMMAND PACKET ADDRESS 

: Ro ADDRESS OF COMMAND PAC 

NOTE: R3 IS IGNORED IF THE CTENABLE FLAG IS CLEAR. 
PRIPKT:: 


roe THE REGISTERS 
. OF WORDS in. PACKET 
UNDER TEST? 











10$: 
15$: :GET HIGH ORDER ADDRESS 
:BR IF NOT ABOVE 28K. 
sGET LOW ORDER ADDRESS 
* SETUP PAR6 MAPPING FOR 78 BIT ADDRESS 
:GET RETURNED PAR6 ADDRESS BIAS 
208: sSAVE WORD NUMBER 
25$: GET PACKET CONTENTS 


SPRINT THE DATA 


sNEXT WORD NUMBER 
DONE ALL PACKET WORDS? 
sLOOP TILL 


ALL DONE 
JUST A A COUPLE NEW LINES 


RTS PC sRETURN 
045 PKTFRA: .ASCIZ TENZA Packet Word #3D1ZA = 206" 
045 PKTADD: .ASCIZ ‘ZNZA Packet Address = 201205" 
045 PKINEW: .ASCIZ ZA 


(7 A sk rn 


SEQ 41 


ee ee NT TE LE LE LL OL LLL LLL AD LD LLL LLL LP LLL LL LLL Le ~- -_ 


dD 4 











SEQ 42 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
bye ¢ -SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 
iet2 3 
1613 *PRINT EXPECTED DATa, RECEIVED DATA, AND XOR OF THE DATA BYTE 
be :THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
1616 S INPUTS: 
1617 5 
1618 : R1 RECEIVED DATA 
1619 : R2 EXPECTED DATA 
1620 ; 
1621 sOUTPUT: 
1622 $ 
be Sy : RO MOR OF EXPECTED/RECEIVED DATA 
1625 ° 
1626 
1627 007334 PRIBXOR:: 
1628 007334 SAVREG sSAVE THE seer rens 
1629 007340 010203 MOV nee sEXPECTED DAT 
1630 007342 XOR R1,R3 FORM THE EXCLUSIVE OR 
1631 007352 012700 177400 MOV #°C<377>,RO sBYTE MASK 
1632 007356 040001 RO,R1 ; SAVE LOW BYTE RECV 
1633 007360 040002 RO,R2 s SAVE LOW BYTE EXPD 


RO,R3 SAVE LOW BYTE KOR 
#XORBEOR.R2,R1 aie sPRINT THE MESSAGE 





6 
746 007416 #XORBF OR ,- (SP) 
46 000004 


007406 000012 
1636 007412 sRO HAS XOR ON RETURN 

by 4 007414 000207 RETURN TO CALLER 

= 007416 045 116 045 XORBFOR: cas eASCIZ ‘ZNZA EXPD: ZO3ZA RECV: ZOSZA XOR: 203° 


1641 


ee ee a CE Oe rE Oe Re gH 


ae 


E—E 4 


SEQ 4 
CZTUZAO TUBO FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 29 SEQ 45 
PRIXOR = PRINT EXPD, RECV AND XOR 


——— = — -<-.— 








by er -SBTTL PRIXOR = PRINT EXPD, RECV AND XOR 
1646 * 
1647 PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
1 ;THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 
1650 ‘INPUTS: 
1651 $ 
1652 : R1 RECEIVED DATA 
1653 - R2 EXPECTED DATA 
1654 : 
1655 sOUTPUT: 
1656 : 
rt ; RO KOR OF EXPECTED/RECEIVED DATA 
1659 ~ 
1660 
1661 007464 PRIXOR:: 
1662 007464 SAVREG SAVE THE SESISTERS 
1653 007470 010203 MOV R2,R3 EXPECT ED DAT 
1664 007472 XOR R1,R sFor’. THE EXCLUSIVE OR 
1665 007502 PRINTB #XORFOR,R2,R1,R3- SPRINT THE MESSAGE 

007 10 MOV R3,-(SP) 

007504 010146 MOV 

007506 0102 MOV 

7510 012746 007534 MOV 
007514 012746 000004 MOV 
75 010600 MOV 

007522 104414 TRAP 

007524 062706 000012 ADD 
1666 007530 010300 MOV sRO HAS XOR ON RETURN 
1667 007532 207 RTS PC *RETURN TO CALLER 
1669 007534 045 116 045 XORFOR: .ASCIZ ‘2ZNZA EXPD: ZO6ZA RECV: ZO6ZA XOR: 206° 








CZTUZAO TU8O FRONT END PRT D 


PRIEQU 


1686 
1687 007602 
1688 007606 000207 


om cot an 


Sag2222222222 


Ses 


ONO US WN © 


F 4 
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- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


007602 


007640 


010446 
012746 


012746 
010600 
104414 
062706 
000207 


045 


045 





-SBTTL PRIEQU = PRINT BIT NUMBERS AS ASCII EQUIVALENT 
De 


ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE 1S NORMALLY CALLED FROM A PRINT ROUTINE 


: INPUTS: 
RO OCTAL VALUE TO CONVERT 


: R1 TABLE OF POINTERS TO ASCII EQUIVALENT 
PRIEQU: 
SAVREG SSAVE THE REGISTERS 
RTS ss PC “RETURN TO CALLER 


-SBTTL PRIRAM = PRINT RAM ADDRESS 
4 


SPRINT CONTROLLER RAM ADDRESS. 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


INPUTS: 
R& RAM ADDRESS 


SAVE R1I]-RS UNTIL NEXT RETURN 
sPRINT RAM ADDRESS IN ERROR 


ADD 
RTS PC ; RETURN 


RAMF OR oy "ZNZA CONTROLLER RAM ADDRESS = 206° 


.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 


+ 


sPRINT MEMORY ADDRESS 
sTHIS ROUTINE iS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


IMPLICIT INPUTS 
ERRH] = HIGH " ADDRESS 





SEQ 44 


ee ow 


STUEAS TugO FRONT END PRT D 
PRIADD <= PRINT MEMORY ERROR ADDRESS 





1723 
724 
725 007702 
1726 007702 
1727 00 13700 002202 
1728 007712 013701 002204 
1729 007716 010102 
1730 00 1 
1731 007722 1 
1732 007724 
007724 010246 
007726 010046 
007730 012746 007752 
007734 012746 000005 
40 010600 
007742 104414 
44 062706 000010 
Ht 007750 000207 
1735 007752 045 116 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 010016 
1752 010016 
1753 010022 002202 
. 010026 002204 
1 
1 
1 
010066 
000005 
01 706 000010 
1759 010064 
1760 010066 116 
1761 


PRIADD: 


045 PRIAO: 


eASCIZ 
~EVEN 





G 4 
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ERRHI RO 
ERRLO,R1 
R1,R2 


RO 
#PRIAO,RO,R2 


so Ri=R5 caueeas NEXT RETURN 
HIGH ADDRESSS 
‘GET LOW ADDRESS 


:COPY LOW ADDRESS 

sSHIFT BIT 15 TO C BIT 

SHIFT INTO HIGH ORDER 

SPRINT MEMORY ADDRESS IN ERROR 


sRETURN 


*ZNZA MEMORY ERROR ADDRESS = 201205° 


.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 


SPRINT MEMORY ADDRESS 
STHIS ROUTINE 1S NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


: 
: 


g3g3g283228¢ 


045 PRITO: 





z 
oe} Mm 
@ e 


Sz 
=~ 
ass 





R 
ASCIZ 
~EVEN 





IMPLICIT INPUTS 


- LOW ORDER 


ERRHI RO 
co fal 








RO 
#PRITO,RO,R2 
R2,-(SP) 





ADDRESS 


SAVE R1-R5 UNTIL NEXT RETURN 
ADDRESSS 







LOW ADDRESS 

T BIT 15 TO C BIT 

T INTO HIGH ORDER 

INT MEMORY ADDRESS IN ERROR 


P ; RETURN 
°ENZA MEMORY TEST ADDRESS = %01205° 


SEQ 45 


~— -—- ~ eo -- 





CZTUZAO TUBO FRONT END PRT D 


1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 


1774 
1775 


FFEPEr ERR 


oooooooce]o 

oesessscsc> one oud 
S¥SS 
— 


NEKSENVS 


SSEESERSERIZLII2 22279233 


ed ce cl ee ce eh et ed cl ed ed 8 ed ed ed ed ed ed ed 8 ed ed ed ced ed ed ed ed ed ed ed ee od eed 


Sse 
&o 


bac) 
oat 


oo 
oy 
NS 
oo 
oooooeoooosooeso 


oS 
g 








010312 


3 100000 
0103512 


000400 
010310 
177776 
017110 
000250 


002116 
177772 





H# 4 
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0320 


000764 01 
140010 010310 


010310 





SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


-SBTTL SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


-¢+ 


“ROUTINE TO ISSUE A SPACE RECORDS 
“COMMAND (FORWARD OR REVERSE) 


: INPUT: 


a 
° 
e 
@ 
8 
* 
& 
° 
9 
a 
g 
8 
e 
° 
e 
® 
@ 
@ 
e 
o 
& 
° 
€ 
° 
4 
e 
€ 
cy 
@ 
© 
e 
* 
@ 
a 
e 
2 
e 
a 
¥ 
2 
e 
6 
& 
s 
e 
ES 
2 
e 
& 
e 
s 


RS NUMBER OF RECORDS TO BE SPACED OVER 
BIT15 CONTROLS DIRECTION 
BIT15 = 0 1S FORWARD 
BIT1S5 = 1 IS REVERSE 

R5 FIRST DEVICE UNIBUS ADDRESS 


REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 
OUTPUT: 


CARRY SET = SPACE RECORDS COMMAND Ok 
CLR = SPACE RECORDS FAILED 





RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 
TAPE WAS BEEN MOVED 
SIDE EFFECTS: 


sSAVE THE GENERAL REGISTERS 
#500.,SDELAY  ;SET UP 
#14001 





0.808 3SET UP COMMAND, SPACE FORWARD 
sCHECK FOR DIRECTION 
3BR, IF REVERSE INDICATED 

NUMBER OF RECORDS TO SPACE 





R35, 
#8118 ,80% 











10$: oR4 
a Re. TaDpcs) [SE Gut crmMaD 
208 “BR, If SSR IS SET AND OK 
250 “DELAY ABOUT .25 SECONDS 
#250, (PC)+ 


LSOLY,(PC)+ 
-6(PC) 
~& 


SEQ 46 


1 4 


SEQ 47 
CZTUZAO TUBO FRONT END PRT D MACRO M1200 29-MAR-83 15:43 PAGE 31-1 
SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


010240 005367 177756 DEC 
010244 001367 
1814 0102466 005337 010520 
1815 010252 001556 
1816 010254 000411 
1817 010256 016501 000000 208: 
1818 010262 012702 000200 
020201 
10270 001401 
1 72 000402 
1822 010274 000261 40$ 
000401 
10300 000241 60$: 


-22(PC) 
SDELAY 
18$ 







ELAY COUNTER DOWN 
MOR 


LAY 
60$ TROUBLE CARRY = CLEAR 
TSSRC(RS) RI 
#SSR,R2 





ROUBLE EXIT 
CARRY NO TROUBLE 
CARRY CLEAR = ERROR 


1826 010302 010400 MOV R4 RO sPASS PACKET ADDRESS 
1827 010304 000207 RTS PC ; RETURN 


T 
$ 


= esas LLL LL ~ . 


J 4 


CZTUZAD TUSO FRONT END PRT D MACRO M1200 29-MAR-83 15:43 PAGE 32 
SPACE = SPACE RECORDS (FORWARD AND REVERSE) COMMAND 





SEQ 48 


1829 3 

1830 3 

1831 : 

1ot sPACKET FOR SPACE COMMAND 
1835 010306 -BLKB 10-<.-TUV2A87> 
1837 


{COMMAND WORD 


1838 

1839 010310 WORD 

1840 “NUMBER OF RECORDS TO BE SPACED OVER WORD 
1841 010312 $0$:  .WORD 

1842 010314 


1643 010316 
184 010320 





SDELAY: .WORD 0 sDELAY COUNTER 


neem aaa oe - -_=--— 


kK 4 
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WRICHR = WRITE CHARACTERISTICS COMMAND 





SEG 49 





-SBTTL WRICHR = WRITE CHARACTERISTICS COMMAND 


7* 


ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
> COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 


$ INPUT 
Re aneeete OF PACKET FROM TEST 
R5 FIRST DEVICE WNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 
OUTPUT: 
RO TSSR CONTENTS 


CARRY SET = WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


s IMPLICIT OUTPUT: 
MESSAGE BUFFER AND OTHER oo fhe ALL SET UP 


SOFTWARE SWITCHES SET AS FOLLOWS: 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


SIDE EFFECTS: 






















WRTCHR 
VREG sSAVE THE GENERAL REGISTERS 
002174 LR ;CLEAR BUFFER ENABLE SWITCH 
177776 10$: MOV R4,TSDB(RS) ND OUT COMMAND 
7? 017224 JSR _—s PC. CHKTSSR SUAIT FOR SSR 
acs is “BR, IF SSR IS SET AND OK 
BR 608 “BR IF TROUBLE CARRY = CLEAR 
000000 208: MOV _—« TSSR(RS),R1 TREAD TSSR 
000200 MOV —s- @SSRR2 SET UP EXPECTED 
000100 BIT  #OFL,RI WAS OFF LINE SET IN TSSR 
BEQ0Otié«éi2#SSS IF NO OFL SET 
000100 BIS  #OFL,R2 € THEM LOOK ALIKE 
258: CMP R2,R1 THEY OK 
BEQ 408 : = OK 
000010 408: ADD  #8.,R4 “POINT TO WRT CHARA DATA PACKET 
MOV (R45 RS GET ADDRESS OF MESSAGE BUFFER 
002716 MOV —s-«R3 ME “STORE FOR PRINT ROUTINES 
SEC : Y no T 
aR 70$ : 
60$:  cLc “CARRY CLEAR = ERROR 
000000 70$: MOV TSSRCRS) RO : RETURN TSSR CONTENTS 





1933 0104246 
19 


10452 012727 
10456 000000 


CZTUZAO TUBO FRONT END 
REWIND = POSITION TAPE (REWIND) C 


0430 012704 
010465 
0440 012705 
004737 


103417 








PRT D 


010520 
177776 


000550 
617110 
000372 
002116 


177772 
177756 


ee nee 


L 4 
SEQ 50 


MACRO M1200 29-MAR-83 13:43 PAGE 34 
OMMAND 


~SBTTL REWIND = POSITION TAPE (REWIND) COMMAND 


sTHIS ROUTINE WILL NEWIND THE SELECTED TAPE. 


CAUTION: THE a DOES NOT WAIT FOR BOT 
TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


; CALLING SEQUENCE : 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 
JSR PC REWIND 





INPUT: 
RS FIRST DEVICE UNIBUS ADDRESS 
: OUTPUT 
RO THE CONTENTS OF R4 1S PASSED TO RO 
R WIND: : 
sSAVE R1I-RS UNTIL NEXT RETURN 
#RUPACK RO [GET PACKET ADDRESS 
n4, TSDBCRS) °SEND PACKET ADDRESS 10 EXECUTE 
#360. “ENOUGH TIME FOR 2400° REEL TO REWIND 
10S: PC WAITE “WAIT FOR SER 10 SET 
208 sLEAVE WHEN SSR IS SET 
50. WAIT FOR .25 SECONDS 
#250. ,(PC)+ 
LSDLY, (PC)+ 
-6(PC) 
ot 
=23(PC) 
R3 :BUMP COUNTER DOWN 
10$ “KEEP GOING 
“CLEAR CARRY TO SET ERROR 
208: Ro, RO “PASS THE PACKET ADDRESS 
PC : TURN 
-BLKB 10-<.-TUV2A87> 
RUPACK: 
.WORD 102010 POSTION COMMAND (REWIND) 
“WORD 0 “NOT USED 


ES TT 


ccna TU8O FRONT END PRT D 





KRAM = COMPARE RAM TO 1/0 PACKET 


98 

1982 010524 
1983 010524 
1984 010530 
1985 010554 


1986 
1987 010542 
1988 010546 













012701 


002206 
000020 


017224 


000027 


000010 002246 


nm 4 
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~SBTTL CKRAM = COMPARE RAM TO 1/0 PACKET 


:* 


SROUTINE TO READ THe FIRST 8 BYTES FROM RAM 
;MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 


$ INPUT 


RS ADDRESS OF THE COMMAND PACKET 
R5 FIRST DEVICE UNIBUS ADDRESS 


$OUTPUT 


CARRY a. © RAM MATCHES PACKET 
CLR = RAM DOES NOT MATCH PACKET 


SAMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN 

RAMSIZ IS sere TO 8. FOR PRAMPKT ROUTINE 


: SIDE EFFECTS: 


sSAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

“BYTE ADDRESS OF FIRST RAM DATA 
ERROR FLAG 





RE HE RAM 
; COMPARE Yay 


sBRANCH IF 
sSET ERROR FLAG 

ADDRESS OF NEXT RAR LOCATION 
REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 














BRANCH IF NOT 
+e a TO SHOW ERROR 


BR EX! 
30$: SEC ;SHOW GOOD C 
Vv #8. ,RAMSIZ 
RTS PC ; RETURN 


om woes ew ee em - 


OMPARE 
sSETUP RAMSIZ FOR PRAMPKT ROUTINE 


SEQ 51 


39 


01 
2050 011004 


013705 





CZTUZAO TU8O FRONT END PRT D 
RAMER = READ AND DISPLAY SELECTED RAM 


2007 
008 


011012 
00 


002246 
011010 


000001 


011014 
000005 


N 4 
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~-SBTTL RAMER = READ AND DISPLAY SELECTED RAM 


“ROUTINE TO READ THE SELECTED RAM LOCATIONS 


: INPUT: 

: RS FIRST DEVICE UNIBUS ADDRESS 
: CONSOLE WILL ALSO BE PRINTED TO 
“IMPLICIT OUTPUT: 

: THE TABLE RAMDATA IS FILLED WITH THE 
: DATA HELD IN RAM. 


:SIDE EFFECTS: 


AMER: : 
SAVREG sSAVE THE GENERAL REGISTERS 
MOV RAMRSH,RS sRESET RS aes ys — al 










#RAMDATA,R1 “ADDRESS TO SAVE THE 
RAMHLD ,R2 “BYTE ADDRESS OF THE FIRST RAM DATA 
RAMSIZ.R3 °SET THE SIZE OF THE RE 
10S: PC .CHKTSSR “WAIT FOR THE TO SET 
R2, TSDBH(RS) SSELECT NEXT RAM ADDRESS 
PC. CHKTSSR T FOR S ET 
TSBAL CRS), (R1)* ZREAD THE RAM DATA 
20S: #1,R2 “ADDRESS OF THE NEXT RAM LOCATION 
R3,108 “NUMBER OF LOCATIONS COUNTER 
RAMSIZ RS °GET THE RAM SIZE 
RAMHLD RZ GET THE STARTING RAM ADDRESS 
; “CALCULATE THE END ADDRESS 
SUB «#1 RG SCORRECT VALUE OF PRINTOUT 
PRINTX @RAMIOP.R2.R4 RAM ADDRESS = 10 - 17, ETC. 
MOV (SP 
ADDRESS OF WHERE RAM DATA IS 
“THE SIZE OF THE RAM FIELD READ 
30S: NO EXTRA DATA LEFT OVER 


sPICK iv BY TE OF RA RAM DATA 
‘F510 211 111 Oe bas ND00 123 136 ETC." 





cones ene ee ere a ee me 


SEQ 52 


ee 


CZTUZAO TUBO FRONT 


et 011006 000207 
2053 011010 000000 
2054 011012 


0060000 
2055 011014 045 
2056 011065 045 


2057 
2058 


E TD MACRO M1200 29-MAR-835 13:4 - 
RAMER = READ AND DISPLAY SELECTED RAM Se ae 


50$: 


RTS 


PC ;RETURN 
0 ;RAM ADDR HOLDER 1ST ADDRESS 
S RS FOR LATER 


Q HOLDS 
ZNRA on | Address (Octal) = Fo ZA = %03%N' 


"ZA 203 


SEQ 53 


a — 


c 5 
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CKRAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA 


SEQ 54 
























ey : .SBTTL CKRAM2 = COMPARE RAM TO 1/0 CHARACTERISTICS DATA 
2062 : 

2063 *ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

oe sMEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 
2066 * INPUT: 

2067 : 

2068 : R4 ADDRESS GF THE CHARACTERISTICS DATA 

4 ; RS FIRST DEVICE UNIBUS ADDRESS 

2071 OUTPUT: 

2072 ; 

2073 : CARRY SET = RAM MATCHES PACKET 

oS : CLR = RAM DOES NOT MATCH PACKET 

on s IMPLICIT OUTPUT: 

2078 : THE TABLE RAMDATA IS FILLED WITH THE 

2079 : DATA HELD IN RAM. 

oo : RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 

2082 sSIDE EFFECTS: 

2083 ; 

2084 ; 

2085 = 

2086 

2087 011100 CKRAM2: : 

2088 011100 SAVREG sSAVE THE GENERAL REGISTERS 
2089 011104 012701 002206 sADDRESS TO SAVE THE RAM DATA 
2090 011110 012702 000167 sBYTE ADDRESS OF FIRST RAM DATA 
2091 011114 sCLEAR THE ERROR FLAG 

2092 011116 017224 sWAIT FOR SSR 

2093 011122 017224 10S: sWAIT FOR SSR TO SET 

2094 011126 177777 sSELECT NEXT RAM ADDRESS 

2095 011132 017224 sWA SR TO SET 

2096 011136 177776 sREAD THE RAM DATA 

2097 011142 (R1)*, (R4)D+ sCOMPARE TO EXPECTED 

2098 011144 208 sBRANCH IF OK 

2099 011146 By sSET ERROR FLAG 

2100 011150 208: R? sADDRESS OF NEXT RAM LOCATION 
2191 011152 000010 002246 #8. ,RAMSIZ sASSURME NORMAL NOT SET 

2102 011160 000176 —— = sREACHED END YET ? 

2103 011164 1 sBRANCH TILL ALL READ 

2104 011166 273: R3 : AN ERROR FOUND ? 

2105 011170 308 : H IF NOT 

2106 011172 sCLEAR CARRY TO SHOW ERROR 
2107 011174 BR 50$ sAND EXIT 

2108 011176 30$: SEC >SHOW GOOD COMPARE 

4444 011200 50S: RTS PC sRETURN 





dD 5 
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CZTUZAO TUBO FRONT END PRT D 
































CKMSG = COMPARE WRITE CHAR. MESSAGE BUFFERS 
2112 ; “SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
2114 ° 
2115 ROUTINE TO COMPASE A WRITE CHARACTERISTICS EXPO AND RECV 
2116 “BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ie ;ERROR PRINT ROUTINES. 
35 * INPUT: 
2121 : RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
2122 : Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
2123 : R2 EXPD MESSAGE BUFFER ADDRESS 
sigs sQOUTPUT 
2126 : CARRY SET = MESSAGE BUFFERS MATCH 
2107 ; CLR “MESSAGE BUFFERS DON’T MATCH 
2129 “IMPLICIT OUTPUT: 
2131 ; BUFFER IS SET TO EXPD DATA 
2132 : BUFFER IS SET TO RECV DATA 
2133 : SET TO HIGH ORDER ADDRESS OF RECV 
2134 ; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
2136 = 
2137 011202 CKMSG: : 
2138 011202 SAVREG sSAVE R1I-Rd UNTIL NEXT RETURN 
2139 011206 010037 002250 MOV _—s- RO, RCVHIADD RECV HIGH ADDRESS 
140 011212 010137 002252 MOV _—s RT. RCVLOAD [SAVE RE 
1011216 005737 003102 TST KTENABLE STESTING ABOVE 28K? 
2142 011222 001403 BEO 10 “BR IF NO 
2143 011224 737 020256 JSR PC, SETHAP =RETURN ADDRESS BIASED TO PAR6 IN RO 
2144 011230 010001 MOV —s-—«aRO, RI RETURNED ADDRESS BIASED TO PAR6 
3145 011232 005004 10$: CLR IN BUFFER 
2146 011234 005003 CLR 
2147 011236 010205 MOV ; 
3148 011240 011264 002266 15$: MOV tnd -ExemSG(R4> 
3149 011244 011164 002432 MOV (R1) ,RECHSG(R4) 
2150 011 022221 CMP (R2)4, (RID4 
2151 011252 001401 BEO 25$ 7BR IF YES 
2152 011 005203 INC R *SET ERROR SEEN FLAG 
2153 011256 062704 090002 25$: ADD #2,R4 “POINT TO NEXT WORD ADDRESS 
2154 011262 020427 000014 CMP 0 séRG #16 “DONE FIRST 7 WORDS? 
2155 011266 003764 BLE 15 “BR IF NO 
2156 011270 032765 000200 000012 BIT x2. EXTF .XST2(R5); 1S EXTENDED FEATURES SET IN EXPD? 
3157 011276 001403 BEO ; 
2158 011300 020427 000016 CHP 0 séRG, #16 “DONE EXTENDED FEATURES WORD? 
2159 011304 003755 BLE 15$ “BR IF 
2160 011306 00570 508: ST R3 SANY ERRORS SEEN? 
11 BEO 558 
62 011 CLC “SET FAILURE 
1 BR 608 : 
1 55$: SEC “SET SUCCESS 
1 40$: ats PC “RETURN 


oe oe ee 


ee LL I OL A A 





USO FRONT END PRT DO 
EXPD RE 





000144 
000144 





ee aed at a ae al al al al eal el al cl el el el cae el al 
a oe and ae od od 8 8 el 8 8 ed ed od ed ed 8 ed oe oe 


Fd i 
rr 





if ise 


<b 8 xd ac a aod 


» 
a 


a lt he onl nl ol ce a 


a ae 
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~SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 





> 








INE TO COMPASE AN EXPECTED AND RECEIVED MESSAGE 









Rout 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED F 
ERROR PRINT ROUTINES. - 
INPUT: 
: RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
; RI RECV MESSAGE BUFFER LOW ORDER ADDRESS 
; R2 EXPD MESSAGE BUFFER ADDRESS 
a3 NUMBER OF BYTES TO COMPARE 
OUTPUT: 


CARRY SET - MESSAGE BUFFERS PATCH 
CLR - MESSAGE BUFFERS DON'T MATCH 


IMPLICIT OUTPUT: 


ECV 
RECV 


nt 
. 


RI-RS UNTIL NEXT RETURN 
1S COUNT ABOVE MAX ALLOWED? 







5$: 3 
[RETURN D TO PAR6 IN RO 
sGET RE § BIASED 10 PARG 
108: RS swORd I 
RS CLEAR 
158: Ce) Eurema SAVE EXPD 
(R1) RECMSG(R4) sSAVE RECV 
(R2)¢,(R1)* $ 
258 3 
258: ; 
508: ; 


SEQ 56 


— ied 


~ cea ey ea Al A LLL LLL LL, LL eee ee —_— - _ 


Eee rnrerenaeeeaoas—~_—,S— sS es 


A EL LI I ED 


EE Se EOE! <r 











2220 011444 


2223 011452 


2 

2225 oh 
2226 011544 
2227 011555 
2228 011610 
2229 011643 
2230 


000241 
01 


CZTUZAO TU8O FRONT END PRT D 
CKMSG2 = COMPARE EXPD RECV MESSAGE BUFFERS 
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sSET FAILURE 
[SET SUCCESS 
sRETURN 





n ERROR CODE REC'D = / 
AFTER DOING SOFT INIT/ 


SEQ 57 


ure INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED~* ; aad 





é 5 
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Q5 
oe TUSO FRONT END PRT D MACRO M1200 asthe | 


SG2 = COMPARE EXPD RECV MESSAGE BUFFERS 


+ 


sPRINT ROUTINE TO FATAL SOFT INIT ERRORS 





: INPUT: 
: a1 CONTENTS CF TSSR AT ERROR 
“SIDE EFFECTS: | 
2264 : EXECUTES DROP UNIT TO CEASE TESTING | 
a i | 
4B 011656 BGNMSG SFIMSG | 
0116 SFIMSG:: 
2249 011656 004737 005264 JSR —«- PC, PRITSSR “PRINT CONTENTS OF TSSR REGISTER 
2250 011662 004737 020142 JSR _—«PC.. CKDROP DROP UNIT, IF ALLOWED 
2251 011666 ENDNSG ts 
011666 110003: 
011666 1044623 TRAP  CSASG 


| 
} 
| 
| 
‘PRINT ROUTINE TO PRINT THE CONTENTS OF | 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. | 
| 
i 
| 
} 


3; INPUTS: 
Ri TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 














PKTSSR 
PKTSSR:: 
J PC PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
° 3éO. WORDS IN PACKET 
PC PRIPKT PRINT THE CONTENTS OF COMMAND PACKET 
MESBFA, SADDRESS OF MESSAGE BUFFER 
Ri sASSUME NO HIGH MERORY 
014052 PC .PRRESS PRINT THE MESSAGE BUFFER ALSO 


1.10004: 





104425 





CSASG 








SPRINT ROUTINE TO PRINT THE CONTENTS OF 
:TSSR AND A GET STATUS COMMAND PACKET. 


: * INPUTS: 





R1 TSSR CONTENTS 
R4 ADDRESS OF COMMAND PACKET 





———————————————————S—<CS sre , 





CZTUZAO TuBt FRONT END PRT D 
CKMSG2 





7 0052646 





HB ore 

AEE 
2301 011736 004737 005264 
2302 01174 


01174 
011742 104425 








ae et ad ad ae aed oe od ae wo 
ey~) -) Sul wn—o 


oooooooKee 
tab ab ab ab ad a6 ab od 
pa a tn ee tr rnd 


E : 


B 005264 


7? 014052 


2324 





aE = 
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COMPARE EXPD RECV MESSAGE BUFFERS 


BGNMSG PKIGETS 


PKTGETS:: 
JSR 


JSR 
ENDASG 


110005: 
TRAP 


P* .PRITSSR sPRINT THE got OF M + 
. S IN GET STATUS PACKET 

PC .PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 

CSMSG 


3¢ 
SPRINT TSSR ERRORS FOR INITIALIZATION TESTS 


: INPUTS : 
; R1 
$ R4 
BGNMSG 
SFFMSG:: 
JSR 
ENDMSS 
110906: 
TRAP 
-SBTTL 


TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 

SFFASG 

PC ,PRITSSR sPRINT CONTENTS OF TSSR REGISTER 
CSASG 


PKTMES = PRINT TSSR AND MESSAGE BUFFER 


PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
ZBUFFER FOR ERROR REPORTS 


3 INPUTS: 


Ri 








CONTENTS OF TSSR 
LOW ORDER MESSAGE BUFFER 
HIGH ORDER MESSAGE BUFFER 





R ADDRESS 
NOTE: as” 1S IGNORED IF KTENABLE FLAG is C! EAR 
BGNASG 











PKTRES 

PC .PRITSSR sPRINT CONTENTS OF TSSR 
R2,RO ;LOW ORDER ADDRESS 

R321 sHIGH ORDER ADDRESS 

PC ,PRAESS SPRINT THE MESSAGE BUFFER 


CSASG 


SEQ 59 


—— — ee ee ee —————————— 


—sasEeee oe 





END PRT D MACRO M1200 29-MAR-83 13:45 PAGE 41 
1 TEST T ADDRESS AND TSSR 





SEQ 60 





| CZTUZAO by A+ 
ADDSSR 






-SBTTL ADDSSR = PRINT TEST ADDRESS AND TSSR 


SPRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A MEMORY TEST ADDRESS 














FIRST DEVICE UNIBUS ADDRESS 
HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 


















ate pee 
2339 011762 004737 010016 PC .PRITADD PRINT MEMORY TEST ADDRESS 
011766 016501 000000 TSERCRS) RI “GET CURRENT TSSR 
2 i 011772 004737 005264 PC PRITSSR “PRINT THE CONTENTS OF TSSR REGISTER 
011776 
; ' 011776 104423 TRAP CSMSG 
2345 : SBITL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
/ ; 
; 6 “PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
: 50 IMPLICIT INPUTS: 
; EXPMSG - EXPECTED MESSAGE BUFFER 
a8 : RECMSG - RECEIVED MESSAGE BUFFER 
; RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD= RECEIVED MESSAGE BUFFE® LOW ORDER ADDRESS 
: BGNMSG MSGEXP 
MSGEXP: : 
012700 000007 mov —s«a#77, RO ASSUME NO EXT FEATURES 
3 004737 015412 S$: JSR. —«sPC.PRASGEXP «=»: PRINT EXPD/RECV MESSAGE BUFFERS 





E 
110011: 
T CSMSG 





12010 
= 10 104425 





CZTUZAC TUBO FRONT END PRT D 
FIFEXP = PRINT FIFO EXP/RECV DATA 


ois Of 2135 
3385 





012064 


012155 
000001 


——————— hs 


—_ TT 


§ $ 
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-SBTTL FIFEXP = PRINT FIFO EXP/RECV DATA 


> 


PRINT ROUTINE TO PRINT FIFC EXP/RECV DATA 
R1 - BYTE COUNT 
IMPLICIT INPUTS: 


EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 


FIFEXP 

#F LF 1MSG.R1 
R1,-(SP) 

#F LF IMSG,-(SP) 
#2,°(SP) 








sPRINT BYTES TRANSFERRED 








sPRINT HEADER MSG 






#4 ,SP 
R1,RO 
PC ,PRBYTEXP 


:GET BYTE COUNT 
sPRINT FIFO BYTES IN ERROR 


ENDASG 
110012: 
TRAP 


045 FIFIMSG: 
045 FIF2MSG: 


"ZNZA NUMBER OF BYTES TRANSFERRED = 2D2° 
"ZNZA FIFO DATA BYTES IN ERROR: ° 





SEQ 61 


as 





CZTUZAO TUBO FRONT END PRT D 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


2387 
388 


399 
2400 012172 
012172 
2461 012172 
2402 012176 


2405 012206 
2404 012202 
012202 


0122352 





2632 
2633 012706 


012706 
2434 012706 012701 012750 


012701 


104425 


0122354 


000004 


000012 
015412 


MACRO A 


012405 
5 





M1200 29-MAR-83 13:43 PAGE 43 


: ~SBTTL MSGSTAT = PRINT STATUS HEADER AND MESSAGE BUFFERS 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
SIMPLICIT INPUTS: 
EXPMSG = EXPECTED MESSAGE BUFFER 


: RECMSG = RECEIVED MESSAGE BUFFER 
: RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 





RCVLOADD=- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGSTAT 

















MSGSTAT:: 

@STATCOD,R1 sASCII ADDRESS TABLE 
108: (R1)¢,RO sDONE ALL MSG LINES? 

sBR IF YES 
sPRINT STATUS BIT NARES 

RO,-(SP) 

#1,°(SP) 

SP,RO 

CSPNTX 

@4 SP 

108 300 ANOTHER MSG LINE 
208: #10. ,R0 R OF WORDS” IN A READ STATUS BUFFER 

: PC , PRASGE XP * PRINT EXPD/RECV MESSAGE BUFFERS 
110013: 
T CSASG 

STATCOD: WORD Lag 5 bSne ige sagen 
1$:.ASCIZ ‘ZNZA Tape Bus BS oye) My Word #8:° 
2$: .ASCIZ 15> " EOT <12> IJFMK <9> IRDY<6> iRWD<2>° 
3$:.ASCIZ ‘ZNZA TREsvecta> LIDENT<11> IHER <8> IONL<5> IFBY<1>° 
6$:.ASCIZ ‘ZNZA 3> ICER <10> ISPEED<7> ILDP<4> IFPT<O>° 
5$: .ASC "ZENZA Tape Bus Si “1 


is in Word #9: 
DATRIS<7> ILW<6> OUTRDY<S> INRDY<4>° 





z 
6$:.ASCIZ ‘ZNZA 
VEN 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


-¢ 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

*JMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGLOOP 
OOP: : 


j ‘i, i) 
7 * 


SEQ 62 


————— ae 


eee we ne 








L 5 
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MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


2435 mene 012100 108: MOV (k1)¢,RO ;DONE ALL MSG LINES? 
2436 012714 001410 0$ :BR IF 
2437 a13716 ;PRINT STATUS BIT NAMES 


16 010046 
2720 012746 000001 
0600 


SEQ 65 





730 0627 000004 
2 12734 000766 :d0 ANOTHER MSG LINE 
2439 012736 012700 000012 20S: #10. ,k0 OF WORDS. IN A READ STATUS BUFFER 
2440 012742 004737 015412 JSR PC ,PRASGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
2441 012746 ENDMSG 
012746 110014: 

2442 012746 104423 TRAP CSMSG 
2443 012750 012770 013043 013142 LOOPCOD: WORD 18,28, B0..60,99 60.79.68 
2444 012770 045 116 045 1$:.ASCIZ ‘ZNZA Bus L ck $ re 2 Word #8:° 
2445 013043 045 116 045 2$:.ASCIZ ‘ZNZA PARERR<15> ESV2<14> IRESV1<13>° 
2446 013142 045 116 045 3$:.ASCIZ ‘ZNZA LHISP=>1E0T<12> luate>s IbEnT<i1> IREV =>ICER <10>° 
2447 013241 045 116 045 4$:.ASCIZ ‘SZNZA IUFM =>1FMK<09> IEDIT=>IHER <08> IFAD =>ISPEED<07>° 

13340 045 116 045 5$:.ASCIZ ‘ZNZA ITADO=>IRDY<06> ITAD1=>IONL <05> IERASE=>ILDP <04>° 
2449 013437 045 116 045 68:.  RNZA IREW =>1DBY<03> IRWU =>IRWD <02> IFEN =>IFBY <O1>° 

116 045 eASCIZ ‘“ZNZA 1GO0 =>I1FPT<00>° 


2450 015536 045 
2451 
2452 


—-_--  —_—- ~-. -_ 


-_—-— ee 





CZTUZAO TUBO FRONT END PRT 9D 


013874 


2487 
2488 013576 
013576 
2489 013576 
2490 013602 
2491 013606 
2492 013612 
2493 013616 
013616 


01361 é 
2494 


012700 
0047357 015412 


104425 


004737 


000012 


MACRO M1200 29-MAR-83 13:45 PAGE 44 
MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


2@ 


“PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 


‘IMPLICIT INPUTS: 
EXPMSG = EXPECTED MESSAGE BUFFER 


: RECMSG = RECEIVED MESSAGE BUFFER 

: RCVHIADD= RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

: RCVLOADD= RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
BGNMSG MSGSUB 

MSGSUB: : 


MOV #10. ,RO sSIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC , PRASGE KP SPRINT EXPD/RECV MESSAGE BUFFERS 


E 
110015: 
TRAP CSMSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 


° 


PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 
IMPLICIT INPUTS: 


ERRHI] = MEMORY ERROR HIGH ORDER ADDRESS 
ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
EXP - EXPECTED DATA 
RECV = RECEIVED DATA 


BGNMSG MEMADD 
MEMADD: : 
JSR PC ,PRIADD or MEMORY ADDRESS IN ERROR 
EXPO RI :GET EXPD DATA 
MOV CV.R2 sGET RECEIVED DATA 
JSR PC ,PRIXOR sPRINT EXPD/RECV 


ENDMS 
110016: 
TRAP CSASG 


SEQ 64 


—— = 


CL A eT 


6 
7 013620 


2527 013662 
2528 013670 


015726 
2530 013752 
2531 013734 
2532 013740 
2533 O13 742 
2534 013746 





012701 
005002 
122124 

1000 


00 
116105 
116405 


eras ee eee ——_ eo -— - 


CZTUZAO TU8O FRONT END PRT D 
PRAMPKT - PRINT RAM AND PACKET DATA 


002206 


177777 
177777 


177777 
002176 
002200 


013766 
000005 


062706 000014 


002246 
002246 


000010 
002246 
116 


N 5 
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002200 
002176 


045 


: ~SBTTL PRAMPKT = PRINT RAM AND PACKET DATA 


SPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 


$ INPUTS 
; R4 POINTER TO COMMAND PACKET 
SIMPLICIT INPUTS: 
RAMDATA DATA AS READ FROM THE RAM 
RAMS 12 NUMBER OF BYTES IN PACKET 


IF RAMSIZ=0 THEN DEFAULT TO 8. 
SINPLICIT OUTPUTS: 
RAMSIZ SET TO 0 


: 
—4 


#RAMDATA,R1 sDATA FRO FROM THE RAM 


Wr 
Cad 
oe 





BR IF 
7$: =1(R1) ,R5 3GET RECV RAM D 
3XOR EXPD/RECV 
tt 200.R3 “LOW BYTE ONLY 
~1ER1) 5RECY :GET RECEIVED RAM DATA 
-1(R4) ,€ *GET EXPECTED RAM DATA 
GRARASE RC, S RECV.EXPD RS 
R3,°(SP) 
EXPD,-(SP) 
RECV,-(SP) 
R2,-(SP) 
#RAMASC,-(SP) 
#5,-(SP) 
SP.RO 
CSPNTB 
#14,SP 
10$: R2 sUPDATE BYTE COUNT 
RAMSIZ ;DEFAULT TO 8.? 
15$ IF YES 
R2,RAMSIZ “DONE ALL BYTES? 
HF “BR IF NO 
15$: R2,08. sDONE DEFAULT NUMBER OF BYTES? 
208: 5% sBR IF 
25$: RAMSI2Z sSET DEFAULT RAMSIZ 


RTS RETURN 
RAMASC: -ASCIZ °ONZA BYTE: ZD2ZA RAM: ZO3ZA Packet: %03%A XOR:203' 


sSAVE R1-R5 UNTIL NEXT RETURN 


R ; TE NUMBER 
CR1)+, (RG) + ; COMPARE got i RECEIVED 
7$ NO MA po ad 


SEQ 65 





PRMESS 


CZTUZny TUBO FRONT END PRT D 


2560 014052 
2561 014052 
562 0140 






2562 014056 0105357 011012 
2563 014062 010005 
2564 014064 005737 003102 
2565 014070 001001 
2566 014072 005001 
2567 014074 010103 
2568 01 0061 
2569 014 006101 
2570 014102 
014102 010546 
014104 010146 
014106 012746 014705 
014112 012746 000005 
014116 01 
0141 104415 
C14122 062706 000010 
2571 014126 022715 177777 
2572 0141352 00101 
0141 
0141 012746 014625 
014140 012746 000001 
0141 010600 
014146 104415 
0141 062706 000004 
2574 014154 
014154 012746 014750 
014160 012746 000001 
014164 010600 
014166 104415 
014170 062706 000004 
2575 014174 005004 
2576 014176 010501 
2577 014200 0103500 
001403 
004737 620256 
010005 
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- PRINT CONTENTS OF MESSAGE BUFFER 


7* 


-SBTTL PRMESS = PRINT CONTENTS OF MESSAGE BUFFER 


:TMIS ROUTINE PRINTS THE CONTENTS OF 
THE 7 WORD MESSAGE BUFFER RETURNED BY THE 


3 INPUT: 


10$: 


158: 


RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 


SAVREG 

MOV sR’, RAMRSH 
MOV 0.R5 
TST | KTENABLE 
BNE 10% 

CLR ORT 

MOV sR RB 
ROL =—s-RO 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 





TASC 
MOV #PRIASC.-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP  CSPNTX 
ADD #4 ,SP 
CLR Rd 
MOV R5,R1 
MOV R3.R0 
Q 208 


BE 
JSR PC ,SETMAP 
MOV RO.R5 


PRINTX SHEA, (R5)¢ 


THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


sSAVE THE REGISTERS 

sSAVE DEVICE REGISTER POINTER 

;SAVE LOW ORDER ADDRESS 

sADDRESS ABOVE 2 

sBR IF YES 

SET HIGH ORDER ADDRESS TO 0 
R a 


sSAVE HIGH ORDE 

: SHIFT "BIT15 TOC B 

;SHIFT TO HIGH ORDER FOR PRINTOUT 
sPRINT MESSAGE BUFFER ADDRESS 






sMESSAGE BUFFER FULL OF ONES 
sBR IF BUFFER IS PROBABLY OKAY 
s"MESSAGE BUFFER PROBABLY NOT VALID" 


sPRINT HEADER FOR CONTENTS 


NUMBER OF THE NEXT WORD 

;COPY LOW ORDER ADDRESS 

:COPY HIGH ORDER ADDRESS 

BR IF NOT ABOVE 28K 

: SETUP PAR ADDRESS IN RO 

;GET PAR FORMAT ADDRESS ABOVE 28K 


ec f ' } 
ms i ” . ! ot | " s' . " 


SEQ 66 






Cc 6 
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PRMESS - PRINT CONTENTS OF MESSAGE SUFFE 


SEQ 67 





014212 012546 
014214 012746 015006 
14220 012746 000002 
014224 010600 
014226 104415 
014230 062706 000006 
2583 014236 ;PRINT “DATA FIELD LENGTH ==" 
014234 012546 
014236 012746 015053 
014242 012746 000002 
014246 010600 
014250 104415 
014252 062706 000006 
2584 014256 ;PRINT RESIDUAL BYTE COUNTER =" 
014256 012546 
014260 012746 015120 
014264 012746 000002 
014270 01 
014272 104415 
014274 062706 000006 
2585 014300 :PRINY “XSTATO CONTENTS “" 
014300 012546 
014302 012746 015165 
014306 012746 000002 
014312 010600 
014314 104415 
014316 062706 000006 - 
2586 014322 :PRINT “XSTAT1 CONTENTS = 
014322 012546 
014324 012746 015232 
014330 012746 000002 
014334 010600 
014336 104415 
014340 062706 000006 - 
2587 0146344 sPRINT “XSTAT2 CONTENTS = 
014344 012546 
014346 012746 015277 
014352 012746 000002 
014356 01 
014360 104415 
014362 062706 000006 7 
2588 014366 sPRINT “XSTAT3 CONTENTS : 
014366 012546 
014370 012746 015344 
014374 012746 000002 
14400 010600 
014602 104415 
014404 062706 000006 
2589 014410 022737 (00001 002136 ;CHECK FOR RAM DUMP REQUIRED 
2590 014416 001402 SBR, IF REQUIRED 
2591 014420 000137 014530 ;JMP 1F NO DUMP 


2592 014426 
014426 








em ee rrr ee ee 








0 6 
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PRMESS = PRINT CONTENTS OF MESSAGE BUFF 


SEG 66 















2593 014444 012737 000010 002246 MOV #8. ,RAMSIZ RAM FIELD IS 8 BYTES LONG 
2594 014452 012737 000020 011010 MOV #20, SFIELD STARTS AT 20 OCTAL (10 HEX) 
2595 014460 004737 910626 JSR READ AND PRINT T 
2596 014464 012737 000040 011010 sFiELD Ay le AT 40 OCTAL (20 HEX) 
2597 014472 004737 010626 JSR READ AND 
2598 014476 012737 000060 071010 MOV sFIELD STARTS. AT 60 OCTAL (30 HEX) 
2599 014504 004737 010626 JSR sREAD AND PRINT THEM 
2600 014510 912737 000020 002246 MOV RAM FIELD : sparen BYTES LONG 
2601 014516 012737 000100 011010 sFIELD STARTS 105 SCTAL {40 HEX) 
2602 014524 004737 010626 SR = AND PRINT. THEM 
2603 914530 900207 50$: RTS PC s RETURN 
014532 04 116 045 HR: .ASCIZ ‘2ZNZA eeceeeeeee SPECIAL M7456 RAM MEMORY DUMP seeeeeeeae’ 
2605 014623 045 116 045 MESBFN: .ASCIZ ‘ZNZA MESSAGE BUFFER CONTENTS PROBABLY NOT VALID’ 
2606 914703 045 116 045 C: .ASCIZ ‘ZNZA Message Buffer Address = , 301205" 
2607 014750 045 116 045 PRIASC: .ASCIZ ‘ZNZA Message Buffer Contents:’ 
2609 015006 045 116 045 MESHEA: .ASCIZ * ENZA Message Buffer ed = 406° 
2610 015053 045 116 045 DATAFL: .ASCIZ *ENZA Data Field L = %06° 
2611 015120 045 116 045 RBPCRA: .ASCIZ Residual Byte - he = %06° 
2612 015165 045 116 045 XSOCON: .ASCIZ + ANEA XSTATO Contents = , 
2613 015232 045 116 045 MSICON: .ASCIZ ‘ZNZA XSTAT1 Contents = 106° 
2614 015277 045 116 5 MS2CON: .ASCIZ ‘ZNZA XSTAT2 Contents = 206° 
116 045 XS3CON: .ASCIZ ‘ZNZA XSTATS Contents = 206° 


2615 015544 045 
2616 


en «eee ne eal 














CZTUZAO TUSO FRONT END PRT D 
PRA 


010005 
HELA og 002252 
013701 002250 
006100 
006101 
010446 
010146 
012746 015572 
012746 000005 
010600 
104415 
062706 000010 
12746 015637 
000001 


015675 
000005 


E 6 
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SGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


RRS 


PFE 





-SBTTL PRASGEXP = PRINT EXPD/RECV MESSAGE BUFFERS 


: ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 
- NUMBER OF WORDS IN BUFFER 
SIMPLICIT INPUT $: 


EXPMSG = EXPECTED a eeaas BUFFER 













; RECA IVED MESSAGE BUFFER 
: RCVHIADD=- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
3 RCVLOADD- RECEIVED MESSAGE SUFFER LOW ORDER ADDRESS 
PRASGEXP: : 
SAVREG sSAVE R1I-RS UNTIL NEXT RETURN 
Vv ° sSAVE NUMBER OF WORDS 
= RCVLOADD RO opr Lo LOW ADDRESS 


MOV RCVHIADD,R1 
ROL 


T 
sSHIFT TO HIGH ORDER FOR PRINTOUT 
SPRINT MESSAGE BUFFER ADDRESS 


sPRINT HEADER FOR CONTENTS 


NUMBER OF THE CURRENT WORD 
GET EXPD BUFFER ADDRESS 
sGET : oo BUFFER ADDRESS 





20$: OV R1) >GET EX 
(R2) GET RECV 
KOR RO,RS >MOR EXPD/RECV 
PRINTX #PRMSG2,R4,(R1)+, (R2)+,R3 
MOV R3,-(SP) 
(R2)4,=(SP) 
(R1)+, (SP) 
R4,<(SP) 
62,-(SP) 
#5,°(SP) 
SP.RO 
CSPNTX 
#i4,SP 
Ro SNUMBER OF THE NEXT 
R&.RS “DONE ALL YET? 
50$ zBR if YES 
BR 208 ANOTHER 
RTS TURN 
: -ASCIZ "EMEA Message putter Address = , 301205" 
> .ASCIZ ‘°SZNZA Message Buffer Contents: ' . 
: “ASCH 'SNZA «WORD #EDZ2ZA EXPD: ZO6ZA RECV: ZO6ZA XOR: %06 


SEG 69 














2677 016014 


2681 016032 
2682 2 


2678 016020 
2679 016022 04 
2680 016026 


CZTUZAO TU8O FRONT END "1200 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


26 6006 
2676 016010 042700 


010005 
005037 002264 
5C04 
012701 002266 
012702 002432 
111100 
2 177400 
110037 0163550 
111203 
2703 177400 
110337 016352 
122122 
001431 
005237 002264 
023727 002264 
101023 
010346 
013746 016332 
013746 016350 
10446 
012746 016176 
012746 000005 
010600 
104415 
062706 000014 
000404 
005204 
020405 
002001 
000717 
013746 002264 
012746 016265 
bE Ups. v00002 
104415 


PRT D 


MACRO 


000010 
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.* ~SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 
; ONLY THE FInsT 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


: RO © NUMBER OF BYTES IN BUFFER 
‘IMPLICIT INPUTS: 
EXPMSG = EXPECTED MESSAGE BUFFER 





. 
¢ 


: RECMSG = RECEIVED MESSAGE BUFFER 
PRBYTEXP: : 
SAVREG sSAVE RI“-RS UNTIL NEXT RETURN 
MOV RO.RS “SAVE NUMBER OF BYTES 
CLR PRANO 
CLR 
MOV SEXPASG.RI 
MOV #RECMSG,R2 
208: MOVB ) 
BIC #*C<877>,R0 
MOVB PRBE 
move —s- (R2) 





Ove 3, PRBREC 





KOR 

cepa sé (RD, (RZD 

BEO 308 vES 

INC PRANO SUPDATE ERROR COUNT 









CMF  —« PRMNO, #8. ioedretes 
273: 
c 
ADD #14,SP 
FORCEXIT 50$ seed 
308 BR 35$ aad 
" « BORCERROR 27$,NOTSSR  ;@@D 
358: aed 
SNUMBER OF THE NEXT 
: ALL YET? 
DO ANOTHER 
508: “PRINT TOTAL ERROR COUNT 





SEQ 70 


ee —-- ~—— = 


ee RE 





016170 
2698 016174 
2699 


2700 016176 
2701 016265 
702 


2 
2703 016330 
2704 016332 


2716 

2717 016334 
016334 

2718 016334 

2719 016340 
016340 
016340 

2720 

2721 


—— emanates —_———— = —- 


CZTUZAO TUBO FRONT END PRT D "1200 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


062706 000006 
000207 


045 116 
045 116 
000000 
000000 


004737 007464 


104425 
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zo-meaes 13:43 PAGE 48-1 


045 
045 PRBTOT: 


PRBEXP: 
PRBREC: 
ve 


PRINT 





ADD #6,SP 
RTS PC ;RETURN 


PRBMSG: .ASCIZ ‘SNZA_ BYTE @ZD2ZA_ EXPD: ZO3ZA RECV: ZO3SZA XOR: 203° 


eASCIZ ‘SZNAA NUMBER OF BYTES IN ERROR = ZD2° 


EVEN 
eWORD 0 sEXPD 
-WORD 0 sRECV 


ROUTINE TO DISPLAY EXPD/RECV DATA 
: INPUTS: 


Ri RECEIVED DATA 
R2 EXPECTED DATA 


BGNASG EXPREC 


PC ,PRIXOR sPRINT THE DATA 


TRAP CSASG 


SEQ 71 


2 

2736 
2737 
2738 


CZTUZAO TUBO FRONT END 
EXPBREC - PRINT EXPD/RECV BYTE DATA 


016342 
1634 


016342 
016342 004737 007534 
016346 


016346 104425 


016354 
016354 104423 








PRT D 


50 
phy Sg 004737 013620 





———— nies —- — 
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-SBTTL EXPBREC = PRINT EXPD/RECV BYTE DATA 


3;¢ 


“PRINT ROUTINE TO DISPLAY BYTE EXPO/RECV DATA 


: INPUTS: 


R1 RECEIVED DATA BYTE 
R2 EXPECTED DATA BYTE 


BGNMSG EXPBREC 


EXPBREC:: 
JSR PC ,PRIBXOR sPRINT THE DATA 
ENDMSG 

110020: 
TRAP CSMSG 


-SBTTL RAMERR = PRINT RAM AND PACKET DATA 


“PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 


: Rs POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 


RAMDATA DATA AS READ FROM THE RAM 
RAMS1Z NUMBER OF BYTES IN PACKET 
If RAMSIZ=0 THEN DEFAULT TO 8. 








sIMPLICIT OUTPUTS: 
RAMSIZ SET 10 0 


es BGNNSG RAMERR 
""JSR  —s- PC, PRAMPKT 


a 
110021: 
TRAP CSASG 


PRINT RAM/PACKET DATA 


.SBTTL RARTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


“PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 


* INPUTS: 


SEG 72 








2807 
2808 016370 
dy La 


2809 0163 
2810 016374 
2811 016400 






sale 016404 
2815 016410 

016410 
16410 





004737 010016 
004737 013620 


104425 


CETees TU8O FRONT END PRT DO 
AMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 


177400 
177400 
007610 
007464 
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RG 





RAMDATA 
RAMS17 


ERRHI 
ERRLO 


POINTER TO COMMAND PACKET 


IMPLICIT INPUTS: 


DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ=0 eT paneatt TO 8. 


LOW ORDER TEST ADDRESS 


3 IMPLICIT OUTPUTS: 


RAMS 12 


-SBTTL 


¢ 


INPUTS: 





110023: 


-SBTTL 


SET T0 0 

RAMTADD 

PC ,PRITADD sPRINT TEST ADDRESS 

PC ,PRAMPKT SPRINT RAM/PACKET DATA 
CSASG 

RAMEXP - PRINT RAM EXPD/RECV DATA 


PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 





RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 





RAME XP 


#°C<377>,R1 SAVE EXPD RAM DATA BYTE 
#°C<377>,R2 ;SAVE EXPD RAM DATA BYTE 
PC .PRIRAA SPRINT THE RAM ADDRESS 

PC ,PRIXOR PRINT THE DATA 


CSASG 
TIMEXP - PRINT TIMER A,B AND EXP/REC 


PRINT ROUTINE TO DISPLAY — DATA 


= AND TIMER A,B HEADER MESSA 





‘INPUTS: 


Ki 
R 


RECEIVED DATA 
XPECTED DATA 


SEQ 75 


Se ES EE EN - 





CZTUZAO TUBO FRONT END PRT D 
TIMEXP = PRINT TIMER A,B AND EXP/REC 


2825 

2826 

2827 016412 
016412 

2828 016412 
016412 


2832 
2833 016440 
2834 


012746 
012746 
010600 
104415 
062706 
004737 
104423 


045 


016440 
000001 


000004 
007464 


116 


MACRO M1200 


045 


TIMEXP: : 


110024: 


TIMSGO: 
EVEN 


BGNMSG 
INTX 


eASCIZ 


re eee eee ee 
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@TImsGO , PRINT HEADER 


#4 ,SP 
PC ,PRIXOR PRINT THE DATA 
CSRSG 


"ZNZA TIMER A STATUS IS IN BIT SENZA TIMER B STATUS IS IN BIT 2° 





848 
2849 016540 
016540 


2850 016540 
2851 016542 
2852 oeanat 


010246 
042702 


546 010246 


16 
2853 016570 
2854 016572 
2855 016576 

16576 


CZTUZAO TUBO FRONT END PRT D 
BADSSR - PRINT TSSR ERRORS ON DATA TRAKSFERS 


177400 


016600 
000002 


706 000005 


005264 


116 
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045 


-SBTTL BADSSR = PRINT TSSR ERRORS ON DATA TRANSFERS 


-¢ 


“PRINT ROUTINE FOR 1SSR ERRORS ON DATA TRANSFERS 
: INPUTS: 


R1 CONTENTS OF TSSR 
R2 DATA WRITTEN (8 BITS) 


BGNMSG BADSSR 

BADSSR:: 
MOV R2,-(SP) sSAVE DATA TRANSFERRED 

BIC #177600,R2 “GET JUST ONE BYTE 

PRINTB #XFERASC,R2 

MOV 2,=(SP) 

MOV @XFERASC,-(SP) 

MOV #2.-(SP) 


MOV P,RO 
TRAP CSPNTB 
ADD #6,SP 
MOV (SP)+,R2 sRESTORE R2 
JSR PC PRITSSR sDECODE TSSR CONTENTS 
ENDMSG 
110025: 
TRAP CSMSG 
XFERASC: ASCIZ ‘ZNZA Data Transferred = 203° 


SEQ 75 


mee ee ee ee eee ee wee ae ee ee | eee ee + 


ee ee ee 


CZTUZAO TUBO F 
SOFINIT = SOFT IN 





2859 
2860 


012765 
004737 
016500 

0004 


RONT END 
NITI 


PRT D 
ALIZE OF CONTROLLER 


000000 
017110 
000000 


176277 
002200 
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eSBTTL SOFINIT = SOFT INITIALIZE OF CONTROLLER 


a 


; ROUT INE TO oo. A SOtT INITIALIZE OF THE CONTROLLER 
INTO THE TSSR REGISTER. AFTER THE INIT, 
s THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 


‘INPUTS: 


: RS 
OUTPUTS: 


ADDRESS OF FIRST REGISTER 


RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


; CALLING SEQUENCE: 
MOV og 


JSR PC SOF INIT 
BCS CONT INUE 


ERRDF sREPORT FATAL ERROR 
SOF INIT:: 
SAVREG : SAVE THE REGISTERS 
ROV #0, TSSRC(RS) ; DO THE INIT. 
JSR PC ,WAITF : WAIT FOR SSR 
MOV TSSR(RS) RO sGET THE TSSR REGISTER 
sTSSR CONTENTS 


MOV RO, 
BIC #*CCHLADDR:OFL> ,Re 
ih @SSRINBA,R4S 3R4 HAS EXPECTED CONTENTS 





R4,RO sONLY EXPECTED BITS SET ? 
BEQ 5$ sBRANCH IF OKAY 
cic 4g THE CARRY FOR ERROR 
BR 108 :GO TO EXIT 
5$: SEC ;SET THE CARRY BIT 


108: RTS PC :RETURN TO CALLER 


SEQ 76 


- ee 


CZTUZAO TUBO FRONT END PRT D 
CHKAMB = CHECK TSSR FOR AMBIGUITY 


100000 
174077 


700 000200 





hm 6 
SEQ 7? 
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34 
3 INPUT: 


‘OUTPUT: 


5$: 


10$: 


40S: 


45$: 
50$: 


«SBTTL 


RO 
CARRY 


SAVREG 





CHKAMB ~ CHECK TSSR FOR AMBIGUITY 


“THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET = NO AMBIGUITY 
CLR = AMBIGUOUS CONTENTS 


sSAVE THE ae REGISTERS 
RO,R4 sCONTENTS OF TSSR 

#SC RO 31S BIT 15 SET ? 

$ sBRANCH IF YES 

d°CCNBA‘OFL !SSR!HIADDRD -RO sANY OTHER BITS SET ? 


&S% sRETURN WITH ats 



























#SSR,RO *tS READY BIT SET ? 
1 sBRANCH IF READY BIT IS ii 
#BiT5.R0 Hf Ange ERROR BIT SET 
@*CTERCLS,R4 CLEAR ALL BUT TERMINATION CODE 
R4,816 sALL L ree BITS MUST BE SET 
4 sERROR IF NOT SET 
45$ sOK IF ALL 
#B1TS,RO ; RROR BIT SET 

H If IS SET Site SSR 
#Blt2'BiT1.RO 31S THIS A FUNCTION REJECT 
45$ ; IF TSSR IS OK 
508 ; AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
PC RETURN TO CALLER 


' 
es 





2960 
2961 017004 
2963 017005 
2964 


2965 
oes 017006 


296 
2968 017010 
2969 


2970 

2971 017012 
2972 017014 
2973 017020 


2980 
2981 017044 


2982 017046 
2983 017054 
2984 


CZTUZAO TU8O FRONT END PRT D 
ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 


000200 
000001 


002156 
017056 
000340 


000000 000002 


000340 000002 
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~SBTTL ENAI!.. ,DSBINT - ENABLE/DISABLE INTERRUPTS 


DEFAULT ote INTERRUPT aig rt 
IF DISPLAY TIME-OUT, REPORT DEV FATAL. AND ABORT PASS. 
OTHERWISE, SAVE Dru REGISTERS AND DISMISS. 


; BIT DEFINITIONS FOR ‘‘INTMASK'’ AND ‘‘INTFLAG'’ BYTES: 


IOKCKIN=B1T7 ; 
IOKSTP=B1T0 ; EXPECT “‘STOP’’ INTERRUPT. 


s INTERRUPT MASK == SAYS EXPECTING INTERRUPTS 


IN BY 
SINTERRUPT FLAG == SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: BYTE 0 


sSAVED INTERRUPT VECTOR: 

INTVEC: .WORD 0 

sSAVE CPU PC 

INTCPC: .WORD 0 

;SUBROUTINE TO ENABLE INTERRUPTS: 


ENAINT: MOV RO, =(SP ) sSAVE RO 
MOV IVEC, “GET POINTER TO VECTORS 
MOV pinta a0) “SET UP INTERRUPT VECTOR 
MOV #PRI07, (RO)*+ 
MOV (SP)+,RO sRESTORE RO 
MOV (SP) ,=(SP) 
#0,2¢SP) sSET CPU TO LEVEL 0 


MOV 
RTI 
s SUBROUTINE TO - INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 


DSBINT: MOV 
NOV serio? 2(SP) 


ee ee ee oe - 


DON'T CHECK FOR BAD INTERRUPTS <-~ TEST WILL. 


SEQ 76 


LL LL EL A, LD LE LLL LLL eo 


CZTUZAO TUBO FRONT END PRT D 


012737 
105037 
132737 
00 


000002 


INTR - INTERRUPT HANDLERS 


000001 
017005 
000001 


000001 
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-SBTTL 
BGNSRV 
MOV 
CLRB 
B1T6 
BNE 
B1SB 


INTR © INTERRUPT HANDLERS 


INTR sDEFINE INTERRUPT ENTRY 
#1, inTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 
;CLEAR FLAG 10 SAY WE GOT NTERRUPT 


INTFLAG 
a nee sEXPECTING STOP INTERRUPT? 
#IOKSTP,INTFLAG ;NO. SET THE ERROR FLAG. 


an REGISTERS, MSG BUFFER, ETC. 


ENDSRV 


L1C026: 
RTI 


SEQ 7 











es 


SEQ 80 
CZTUZAO TUBO F _ END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 55 , 
WAITF = WAIT FOR SUBSYSTEM READY 
Feed .SBTTL WAITF =| WAIT FOR SUBSYSTEM READY 
soar : SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
3005 : INPUTS: 
3006 3 
3007 : RS ADDRESS OF FIRST DEVICE REGISTER 
3009 sOUTPUTS: 
3010 : 
3011 : RO CONTENTS OF LAST TSSR READ 
3012 : CARRY SET = READY BIT SET 
ak, $ CLR - TIMEOUT WAITING FOR READY 
3015 017110 WAITF:: BREAK : DO A SUPVSR BREAK FIRST. 
017110 104422 TRAP CSBRK 
3016 017112 012746 010000 Vv #10000,-(SP) sB1G MSEC TIMER 
3017 017116 DELAY “DELAY 100US 
017116 012727 000001 MOV #1, (PC)+ 
017122 000000 WORD 0 
017124 013727 002116 MOV LSDLY, (PC)+ 
017130 eWORD O 
017132 005367 177772 DEC -6(PC) 
017136 001375 BNE 4 
017140 5367 177756 DEC =22(PC) 
017144 1367 BNE .- 
3018 017146 016500 000000 2$: MOV TSSRCRS) RO sREAD THE 1SSR REGISTER 
— TSTB =—s«RO sTEST FOR READY BIT SET 
3021 017154 100420 I 3$ s EXIT ON STOP FLAG. 
3022 017156 DELAY 1 * WAIT 100 USEC 
017156 012727 000001 MOV #1, (PC)¢ 
017162 WORD 
017164 013727 002116 MOV LSDLY, (PC)+ 
017170 »WORD 
017172 005367 177772 DEC -6(PC) 
017176 001375 BNE . 
01 005367 177755 DEC @~22(PC) 
01 001367 BNE 720 
3 01 005316 DEC (SP) sREDUCE DELAY COUNT 
3024 017210 001356 BNE 2$ *RETRY UNTIL TIMER EXPIRES 
3025 017212 000241 CLC * C = 0, CONTROLLER STILL RUNNING... 
017214 000401 BR 4$ Fone HUNG-UP AFTER 300 MSEC. 
7 017216 000261 38: SEC * C = 1, CONTROLLER IS STOPPED. 
3028 017220 005326 4$: DEC (SP)+ RESTORE STACK WITHOUT CHANGING CARRY 611 
3029 017222 207 RTS PC 


—_——Ee) ee eee 
A - 


EE 


EE LL a -o— - 


———— 


CZTUZAO TUBO FRONT END PRT D 
CHKTSSR = CHECK TSSR FOR READY 


3031 


3062 017262 


004737 
103014 
004737 





017110 
016704 
106000 
074000 


eae 
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+ 


~SBTTL CHKTSSR = CHECK TSSR FOR READY 


:TMLs ROUTINE WAITS FOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


10$: 


15$: 
20S: 


RO 
CARRY 


ADDRESS OF CSR REGISTERS 


4 pag B CF TSSR 
CLR = NOT "READY AMBIGUOUS, OR SC SET 


PC ,WAITE WAIT FOR READY 

0$ “BRANCH IF TIME OUT 

PC. CHKARB :TSSR , ha 1GouS? 

#SC.RO :SPECIAL CONDITION SET? 


“BR IF NO 
#CSCE!BIE!RMR!NXRD -RO ANY ERROR BITS SET? 
°SET FAILURE 


20% ; 
sSET SUCCESS 
PC RETURN TO CALLER 


SEQ 81 


sal —_- _—-~—- 


i 


Cowen TUBO FRONT END PRT D MACRO M1200 29-MAR-83 15:45 PAGE 57 
NXA ~- CHECK FOR NONEXISTENT MEMORY 








SEQ 





- -SBTTL XNXM - CHECK FOR NONEXISTENT MEMORY 
; ROUTINE TO TEST FOR A “ss IN THE — he THRU (RZ). 





CALL: LOOPTO ARG 


: > ON RETURN, IF —e s is % = WEXA ADDR 
: "20, Hh  DORESSES OK. 
CALL: MOV os R1 
: MOV DR2,R2 
: JSR PC NKR 
3074 : RETURN sTEST ‘'C’’ AND PROCEED. 
3075 017264 012737 017316 000004 XNXM: MOV #2%,a84 s SET BUSERR VECTOR. 
3076 017272 012737 000200 000006 MOV #PRI04 086 
3077 017300 005003 CLR Be sFLAG. 
3078 017302 005711 1$: TST (R11) a THE ADDRESS(ES). 
30 sIF ANY TRAP, CONTINUE AT 2S. 
3080 017304 620102 CMP R1,R2 tH ie Ft CONTINUE HERE. 
3081 017306 001407 BEG 3$ sR IF FINISHED (NO NEXM’S). 
3082 017310 062701 000002 ADD #2,R1 SET NEXT ADDRESS... 
3083 017314 000772 BR 1$ taeeAND CONTINUE. 
3085 017316 005103 2$: COM R3 sGOT ONE, SET FLAG... 
3086 017320 012716 017326 MOV #33, (SP) 
3087 017324 000002 RTI s..eAND DISMISS INTERRUPT... 
3088 017326 3$: CLRVEC #4 s.eeAND GIVE BACK THE VECTOR. 
017326 012700 000004 MOV #4,R0 
017332 104436 TRAP CSCVEC 
3089 017334 005703 TST R3 sDID WE CATCH ONE 27 
017336 001401 BEQ +6 NO, "C’’ = 0. SKIP NEXT 
3091 017340 060261 SEC svES, “C’' = 1, (RI) = NEXM ADDR. 
3092 017342 000207 RTS PC 
3093 
3094 
3095 
3096 
dd .SBTTL TSTLOOP - CHECK ITERATION COUNT 
3099 : ” SUBROUTINE TO ace TEST ITERATIONS. 
3100 s EXIT WITH ‘'C’’ SET LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
S00 : LOOP COUNTER IS ser BY BEGIN TEST" MACRO. 
T 





STLOOP: : 
002136 TST NOITS 3; ITERATIONS INHIBITED? 
SAE 1$ s VES. 
002152 TST ave ; NO. 
BMI 1$ LOOPS DISALLOWED IN QUICK PASS. 
002164 et tel : BUMP LOOP COUNTER. 
1$: CLC $$ sLOOP DISALLOWED. OR DONE. 





BR 
$8: SEC ;LOOP ENABLED. 


CZTUZAO TU8O 


3 

3145 017376 
3146 017376 
3147 017400 
3148 017404 
sien Of wece 


017472 
3161 017476 
3162 0173502 


FRONT END PRT D 
TSTLOOP - CHECK ITERATION COUNT 





160001 003150 


177777 005060 
002150 


mmm ammmemneeeeeceem es eemameemmammmn aa aaas —— - . 
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-SBTTL TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 
: "PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
; INCREMENT ‘‘TESTK’’ TO INDICATE THE NUMBER OF TESTS 


; IN THE CURRENT RUN SEQUENCE. 
; CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 


RO POINTER TO TEST ID ASCIZ STRING 


; R5 ADDRESS OF FIRST DEVICE REGISTER 

SIMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 
SIDE EFFECTS: 


INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 


:SAVE THE TEST ID MESSAGE 
: CLEAR AR SOFT INIT’ FLAG 

LOCAL ERROR COUNTER. 
cL EAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
THE UNIT NUMBER, 
ed MAKE IT A WORD OFFSET 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
44 ; GR IF NOT IDLE 
#160000 ,ERTABL ( RO) ; FLAG ERROR IN 






















THE ERROR TABLE 





1.NXR.NKRERR  ; NO DEVICE HERE -- PRINT IT 

cSeRDF 
MXR 
NXRERR 

3$: #160001 sERTABL (ROD FLAG ERROR IN THE ERROR TABLE 
2,NOINI * DEVICE NOT IDLE 
cGenoF 
NOINIT 

2$: #-1,DUFLG : DROP THE UNIT 
UNITN 





ROV UNITN,RO 
TRAP C$D0DU 


01 
017506 104451 
3163 017510 N : — 


SEQ 85 


EE. + Panam _ 


A — 


se ee ee eee 


G6 7 
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TSTSETUP = PRINT TEST NAME AND INIT ERROR COUNTS 





SEQ 84 


017510 
3164 017512 0004 
3165 


3166 tea 


017514 
3167 017516 0 


4$: 





TRAP CSOCLN 
BR 5$ 


RFLAGS RO 
TRAP 








; GET THE OPERATOR FLAGS. 


700 001000 ; PRINT THE TEST NUMBERS? 
3168 017522 001412 ; BR IF NO 
3169 017524 011600 sGET THE !D MESSAGE 
3170 017526 sDISPLAY THE TEST ID 
017526 010046 
017530 012746 017572 
017534 012746 000002 
017540 010600 
017542 104417 
017544 062706 000006 
3171 017550 005237 002162 1$: ; BUMP TEST COUNTER. 
3172 017554 SPRIORITY THAT OF DEVICE 
017554 0135700 002160 
017560 104441 
3173 017562 005726 5$: sF IX UP THE STACK 
174 017564 613705 002154 ; ADDRESS OF TSV REGISTERS ON UNIBUS 
3175 017570 207 R PC 
3176 017572 045 123 045 INAM: .ASCIZ ‘ZSZTZA Test’ 
3177 -EVEN 








CZTUZAO TUBO FRONT END PRT D 


TSTEND <= PRINT ERRORS RECEIVED 


3181 
3182 


3183 
3184 017606 

017606 104421 
3185 017610 050027 
3186 017614 001412 


3187 017616 
017616 013746 
0127 


002150 
003130 
170000 
002142 
017644 


700 000040 





177777 
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040 
122 


002140 


00306C 








~SBTTL TSTEND 


AT END OF EACH TEST, 
IF NORMAL ERROR REPORTING IS DISABLED (FLA: IER). 


STEND: RFLAGS RO 
TRAP c$ 


am@@e @e @e Gs 


oSBTTL 


= PRINT ERRORS RECEIVED 
PRINT THE NUMBER OF ERRORS RECEIVED 


; BR IF ““IER'’ NOT SET. 
: PRINT ERROR COUNT. 


; LOCAL ERROR COUNT. 
/ZA ZORA ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 


INCERK - INCREMENT LOCAL ERROR COUNT 


; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


INCERK: : INC 
MOV 
MOV 
ASL 
ADD 
INC 
BIT 
BNE 





CKEMAX: 


1$: 















ERR INCREMENT LOCAL ERROR COUNT 
UNITN,RO GET UNIT NUMBER, 

RO we» AND MAKE IT A WORD OFFSET. 
#ERTABL .RO RO GETS ADDRESS OF ERROR TABLE ENTRY. 









INCREMENT THE DEVICE ERROR COUNT 














#7777, (RO) DID WE OVERFLOW THE FIELD? 
1$ BR IF NO. 

(RO) YES -- BACK IT UP TO 7777. 
(SP)+,R0 STORE 

PC RETURN TO CALLER. 

RO,-(SP) SAVE RO 

UNITN,RO GET UNIT NUMBER 

RO E IT A WORD OFFSET 






- AND MAK 
T ERROR TABLE — 


ERTABL (RO) RO GE 
#170000 ..RO EXTRACT ERROR COUNT FIELD 
RO ,GERRAAX 1S GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 








1 BR IF YES 

a : LOCAL LIMIT EXCEEDED FOR THIS TEST? 
RO GET OPERATOR FLAGS 

CSRFLA 

_— : IS os INHIBITED? 


BR ; 
#-1,DUFLG NO -~ DROP THE UNIT 
4 ,EMAXDU 
cCSEROF 


MAXDI — 


SEQ 85 


ean 
———= <r - 


CZTUZAO TUBO FRONT END PRT D 


INCERK 
020052 

3225 020054 
020054 

020060 

3226 020062 
20062 

3227 020064 
020066 


013700 
104451 


015701 
301 


i 


002150 


002150 
000001 003130 
002170 
002170 000031 


040000 
020142 


~ 
— 


+ 


Wise Ge Ge Ge Ge Ge 


> 6 


TCHK: 


Seo Se Gs Ss 





BNE 
JSR PC ,CKDROP 
PC 


1 7 
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- INCREMENT LOCAL ERROR COUNT 


~ WORD 

DODU UNITN 

MOV UNITN,RO 

TRAP C“D00U 

DOCLN 

TRAP CSOCLN 

MOV (SP)+,RO : RESTORE RO 


RTS PC RETURN TO CALLER 
FATCHK = INC FATAL ERRORS AND CHECK FOR LIMIT 


CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 


SAVREG sBETTER SAVE THE REGISTERS 
MOV UNITN,R1 PICK UP THE UNIT NUMBER 
R zMAKE IT INTO A BYTE OFFSET 
#1,ERTABL(R1) ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 
FATFLG ‘SUMP. FATAL ERROR COUNTER 
FATFLG,@25. —. AGAINST 25 
9$ :BR, If LESS THAN 25 ERRORS 
RO sREAD THE FLAGS INTO RO 








CSRFLA 
#B1T14,R0 sBR, IF LOOP GW ERROR IS SET 

OTHERWISE NEVER BE ABLE TO SCOPE ETC. 
sDROP UNIT IF ALLOWED 

sRETURN ETC. 





SEQ 86 


5253 
3254 
3255 
3256 
3257 020142 
3258 44 


75 
3276 020210 
$277 020210 
3278 020214 
3279 


3280 
3281 





CZTUZAO TUBC FRONT END PRT D 
CKDROP = CHECK IF UNIT SHOULD BE DROPPED 


700 000040 


011600 
012737 
013700 
104451 


004737 


000207 


177777 003060 
002150 


016634 








37 
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. »SBTTL CKDROP = CHECK IF UNIT SHOULD BE DROPPED 

; CHECK IF UNIT SHOULD BE DROPPED 
CKDROP: MOV RO,-(SP) 

FORCERROR 18, NOTSSR 

RFLAGS RO 

TRAP CSRFLA 

BIT #10U,R0 

BNE 1$ 

MOV (SP) ,RO 

MOV #-1 ,DUFL 

DODU UNITN 

MOV UNITN,RO 

TRAP C$D00U 

DOCLN ;ABORT THE PASS 

TRAP CSOCLN 
1$: MOV (SP)+,RO 

RTS PC 

~SBTTL CONFIG = DETERMINE CONFIGURATION OF SYSTEM 
3 SUBROUTINE - DETERMINE CONFIGURATION OF TUSO SYSTEM. 
CONF IG: 

JSR PC SOF INIT 

RTS PC 


eee ewe ee - 


SEQ 87 


a nel ——— 


CZTUZAO TUBO FRONT END PRT D 


KTON .K 


TOF F 
3283 

3284 

3285 

3286 

3287 020216 
3288 020222 
3289 020224 


= ENABLE/DISABLE MEMORY MANAGEMENT 


3290 020232 000207 
3291 


3292 
3295 


005737 


020240 001405 
000240 


000240 
012737 
000207 


003100 
000001 177572 


003100 


000000 177572 


-SBTTL KTON,KTOFF 


kK 7 
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: SUBROUTINE - ENABLE MEM MGT. 


KTON: 


1$: 


TST 
BEQ 
MOV 
RTS 


KTFLG 
1$ 
#1,SR0 
PC 


: SUBROUTINE = DISABLE MEM MGT. 


KTOFF : 


KTFLG 
1$ 


#0,SRO 
PC 





, 


ENABLE/DISABLE MEMORY MANAGEMENT 


GOT KT? 


: YES. ENABLE KT11. 


; GOT KT11? 


DISABLE kT. 


SEQ 88 


——-- as -_ 
—_— ee 


we on eee 


SL ANALMMMBLLLLELLLLE ALLL LL LLL LA LL LL LL LOLA LL LE AE 


EE meet a 


ee ee ee er a 


SE TRAP 


3335 020326 
3336 020332 





CZTUZAO TU8O FRONT END PRT D 
- SETUP PAR6 MAPPING 


903100 


000177 
003100 


172354 
160000 
140000 


L 7? 
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~SBTTL SETMAP = SETUP PAR6G MAPPING 


‘* 


THIS ote SETS uP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
18 RETURNED BIASED TO PAR6. 




















INPUTS: 
: RO HIGH ORDER ADDRESS BITS 
: RI LOW ORDER ADDRESS BITS 
“OUTPUTS 
: RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
: CARRY SET IF SUCCESS 
: CLR IF ERROR 
SETMAP: 
SAVREG SAVE R1I“R4 UNTIL NEXT RETURN 
1s! KTELG :SYSTER HAVE ABOVE 28K? 
nov R12 “SAVE LOW ORDER BITS 
ASR RO sCONVERT WORD ADDRESS TO 32W BLOCKS 
ROR : R1 MAKE IT DUUBLE PRECISION 
BIC =—_- #177, R1 ALINE FOR LOWER 4K BOUNDARY 
CMP sé KTFLG “HIGHER THAN EXISTING MEMORY? 
BuiIs. si SBR IF YES 
MOV = R1,@#KIPAR6 = :SETUP MAPPING REGISTER PAR6 
BIC  #160000,R2 SETUP DISPLACEMENT IN PAGE 
ADD —«-#140000.R2 “ADD IN PAR6 BIAS 
MOV sO RETURN IN R 
SEC “SET SUCCESS 
BR 15$ 


10$: CLC *SET FAILURE 
15$: RTS PC * RETURN 


—o.e  eer ee * 


SEQ 89 


LL LLL OO EE ——— —~— = 
A A . 


i 


CZTUZAO TU8O FRONT END PRT D 


0202354 


3 
003072 
003074 


7 003100 
7? 020216 
003104 


020256 
160000 
020000 


020502 
029234 





n 7 
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FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 


Hk 


000200 
172354 003100 


10$: 


50$: 
55$: 


one ee 3 ee ee 


SEQ 90 


~SBTTL FILLMEM = FILL MEMORY WITH BACKGROUND PATTERN 


RO = BAC 
FREE 


KTFLG 


OUTPUTS: 





KGROUND PATTERN 
= FIRST LOCATION AVAILABLE TO DIAGNOSTIC 


+ 
FILL MEMORY WITH A BACKGROUND PATTERN 


= SET TO HIGHEST MEMORY LOCATION IF > 28k. 


_— 
nen 


#200 , @#KIPAR6 
SAKIPARG,KTFLG 
50$ 


30$ 
PC ,KTOFF 
PC 


Hye RI°-RS UNTIL NEXT RETURN 
;COPY TEST PATTERN 
sGET FIRST FREE LOCATION 

IZE OF FREE SPACE BELOW 28K. 
STORE A BACKGROUND WORD 
DONE ALL MEMORY IN FREE SPACE? 

















«<< 

moo” 

e ww" 
4 
~4 
tap 


335 





GET OUT. 
ENABLE KT. 


sHIGH ORDER ADDRESS START 
START ADDRESS (IN 52W BLOCKS) 


sGET >28K 
CLEAR C 





BIT 
CONVERT BLOCKS TO WORDS 


sMAKE IT DOUBLE PRECISION 


sSETUP PAR6 MAPPING REGISTER 
sSTORE TEST PATTERN IN >28K ADDRESS 
END OF PARG MAPPING AREA? 


sBR IF NO 

sBACKUP INTO PAR6 MAPPING BEGIN 
sPOINT TO NEXT 4K BLOCK >28K. 
sEND OF MEMORY? 


sBR IF YES 
sKEEP GOING 


ON ETC. 
DISABLE KT. 





N 7 
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CMPMEM = COMPARE MEMORY TO BACKGROUND PATTER 


SEQ 91 


, -SBTTL CMPMEM = COMPARE MEMORY TO BACKGROUND PATTERN 
; COMPARE MEMORY WITH A BACKGROUND PATTERN 











C 


; INPUTS: 


RO = BACKGROUND PATTERN 


FREE = FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG = SET TO HIGHEST MEMORY LOCATION IF > 28K. 
* OUTPUTS: 

CARRY «= SET IF NO ERROR 

CARRY = CLR IF ERROR 


; IMPLICIT OUTPUTS: 


ERRHI - ERROR HIGH ADDRESS 
ERRLO = ERROR LOW ADDRESS 
EXPD = EXPECTED DATA 
15 RECV = RECEIVED DATA 
3417 020546 MPMEM: 
3418 02054 SAVREG sSAVE RI-RS UNTIL NEXT RETURN 
3419 020552 010003 MOV 0,R3 COPY TEST PATTERN 
3420 020554 737 020234 JSR PC. KTOFF SDISABLE K 
21 020560 013701 003072 MOV FREE,R1 GET FIRST "Free LOCATION 
3422 020564 013702 003074 MOV FRESIZ,R2 SIZE OF FREE SPACE BELOW 28K. 
3423 020570 020311 10$: CMP R3, (RI) “FREE SPACE LOCATION EQUAL TO EXPD? 
2% 020572 001411 BEO 15 “BR IF YES 
3425 020574 010137 0022 MOV R1,ERRLO “SAVE ADDRESS IN ERROR 
26 0 5037 002202 CLR ERRHI 3NO HIGH ADDRESS 
70 010337 002176 MOV R3,EXPD *SAVE EXPD FOR ERROR REPORT 
3428 020610 011137 002 MOV (R1) ,RECV ;SAVE RECV FOR ERROR REPORT 
3429 020614 7% BR 50$ : 
3430 020616 005721 15$: TST (R1)¢ “POINT TO NEXT ADDRESS 
020620 00530 DEC R2 “DONE ALL MEMORY IN FREE SPACE? 
3432 020622 003 BGT 10$ “BR IF NO 
3433 020624 005737 003100 TST KTFLG : GOT KT? 
020630 001472 BEQ ; NO. GET OUT. 
3435 020632 004737 020216 JSR PC,KTON : YES. ENABLE KT. 
3436 020636 005 CLR “HIGH ORDER ADDRESS STAR 
3437 020640 013701 003104 MOV PSTS2u.R1 “GET >28K START ADDRESS UN 32w BLOCKS) 
s CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 
3442 020674 042701 000177 “ALINE 4K BOUNDARY 
020 10046 “SAVE HIGH ORDER 
3444 020702 010146 “SAVE LOW ORDER 
020704 004737 020256 ETUP PAR6 MAPPING REGISTER 
020710 010004 s COBY ADDRESS BIASED TO P 
3447 020712 012601 “RESTORE LOW ORDER IN NON PAR6 FORMAT 
020714 012600 “RESTORE HIGH ORDER IN NON PAR6 FORMAT 
3449 020716 020314 30$: “ABOVE 28K LOCATION EQUAL EXPD? 
020720 001411 32 “BR IF YES 
3451 020722 010037 002202 RO, ERRHI WIGH ORDER _IN ERROF 








- ee ee - 


————— ee 


EE aaa 
















SEQ 92 
C2TUZAO TUSO FRONT END PRT D MACRO M1200 29-MAR-B3 13:43 PAGE 64=1 
CMPHEM = COMPARE MEMORY TO BACKGROUND PATTERN 
3452 020726 010137 002204 MOV _—sR1, ERRLO : SAVE LOW ORDER IN ERROR 
3453 020732 010337 002176 MOV = R3.EXPD AVE EXPD FOR ERROR REPORT 
3454 020736 011437 002200 MOV (R&) ,RECV SAVE RECV FOR ERROR REPORT 
3455 020742 000421 BR 5g 
3456 020744 062701 000002 32$: ADD #2,K1 “UPDATE NON PAR6 ADDRESS 
3457 020750 005500 ADC RO “MAKE IT DOUBLE PRECISION ADD 
3458 020752 062704 000002 ADD  #2,R4 “UPDATE PAR FORMAT ADDRESS 
3459 020756 020427 160000 CMP —s«éR8& #160000 SEND OF PAR6 MAPPING AREA? 
3460 020762 103755 BLO 308 BR IF NO 
3461 020764 162704 020000 SUB #20000, R4 :BACKUP INTO PAR6 MAPPING BEGIN 
3462 020770 062737 000200 172354 ADD #200, @#KIPARG POINT TO NEXT 4K BLOCK >28K. 
3463 020776 023737 172354 003100 CMP @AKIPAR6, KTFLG :END MEMORY? 
3464 021004 101744 BLOS 
3465 021006 004737 020234 S0$: JSR  —«wPC, KTOFF “TURN OFF MEMORY MAPPING 
3466 021012 000241 CLC :Set FAILURE 
3467 021014 000403 BR 608 
3468 021016 004737 020234 55$: JSR PC, KTOFF “TURN OFF MEMORY MAPPING 
3469 021022 000261 SEC [SET SUCCESS 


3470 021024 000207 60S: RTS PC 
3471 








oo 


REGSAV 


92 
3493 021026 


3494 021026 
1026 


CZTUZAO TUSO FRONT END PRT D 
- SAVE R1-R5 ON STACK 


000012 


c 8 
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. ~SBTTL REGSAV = SAVE R1-R5 ON STACK 


sROUTINE TO 
SAVE R1 THROUGH RS ON THE STACK 
[CALLING SEQUENCE: 


‘ JSR RS ,REGSAV 
sTHIS IS A COOROUTINE he TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 


THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
;REGIST ERS. 


[THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
; CALLED VIA A JSR PC INSTRUCTION 


REGSAV: 
sLOOK FOR CNTL C 





(SP)+,R4 
(SP)+,R5 


CSBRK 
PC 


sLOOK FOR CNTL C 








CZTUZAO TU8O FRONT E 
GETPAT 


3530 021066 
3531 627066 
3532 pS A 


540 
3541 021122 
3542 021124 
3545 


104443 
000406 
021122 
000022 
021124 
000377 
000000 
000377 


103367 
013700 
000207 


000009 
105 


ND PRT D 
- GET 8 BIT PATTERN FROM OPERATOR 


621122 


116 
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124 


> -S8STTL GETPAT = GET 8 BIT PATTERN FROM OPERATOR 


“ROUTINE TO REQUEST AN 8 GIT DATA PATTERN FROM THE OPERATOR 
: INPUTS: 


; NONE . 

: OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

; JSR  —«- PC, GETPAT 

GETPAT:: 


SAVREG “SAVE THE GENERAL REGISTERS 
1$: GMANID DATASC,PATDAT,O,377,0,377.NO 
TRAP CSGHAN 


100008 
WORD PATDAT 
WORD TSCODE 
WORD DATASC 
-WORD 377 


WORD TSLOLIA 
-WORD TSHILIA 
10000$: 
yl 1$ sRETRY IF ERROR 
MOV PATDAT,RO sDATA PATTERN FROM OPERATOR 
RTS PC sRETURN TO CALLER 


at 
sLOCAL DATA AREA 


PATDAT: .WORD 0 TEMPORARY STORAGE FOR DATA 
DATASC: oy "ENTER DATA PATTERN’ 


SEQ 94 


ee ee ee ee 


— A CO COE A LG A OE Ot 


GETSEL 


3545 


SNP ENO FOS 


3574 
3575 021370 





- ISSUE MENU 


103552 
015 


CZTUZAO TU2O FRONT END PRT , 


021354 
000002 


06 000006 


700 021570 


020001 
101411 


2 012746 


012746 
0600 


021266 
000001 





MACRO M1200 29-MAR-83 13:43 PAGE 67 


045 
164 


T OPERATOR RESPONSE 


-SBTTL GETSEL = ISSUE MENU AND GET OPERATOR RESPONSE 


; ROUTINE TO ISSUE A MENU AND GET 
——- S RESPONSE. 


: RO ADDRESS OF ASCIZ STRING OF MENU 


SESE MAXIMUM ALLOWABLE OPERATOR RESPONSE 
: RO NUMBER OF THE OPERATOR'S SELECTION 
GETSEL:: 














sSAVE GENERAL REGISTERS 
VE THE MENU ADDRESS 

















1$: R2,R3 
2$: (RS) “END OF ASCII ? 
38 sBRANCH IF ALL LINES DISPLAYED 
egg i “DISPLAY THE MENU 
3$: 
10001$§: 
sRETRY IF ERROR 
sGET THE Ager ol REPLY 
sCOMPARE TO MAXIMUM ALLOWED 
sBRANCH IF OK 
sDISPLAY ERROR MESSAGE 
BR RETR 
: RTS PC RETURN TO CALLER 
MENERR: .ASCIZ xB eee Menu Selection Too Large *ee° 
SELASC: .ASCIZ 
MENASC: as cater Menu Selection: ° 
MENRES? .WORD 0 


SEO 95 


— oe 





F 8 


oe TU8O FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 68 
HKMAN - CHECK MANUAL INTERVENTION LEGALITY 






EL ms ~SBTTL CHKMAN = CHECK MANUAL INTERVENTION LEGALITY 
3380 : ROUT INE TO TEST SOR MANUAL INTERVENTION LEGALITY. 

3 INPUT: 

; NONE . 

SQUTPUT : 

CARRY 0 MANUAL INTERVENTION NOT ALLOWED 

: F MANUAL INTERVENTION IS OK 


“SIDE EFFECTS: 


; A MESSAGE IS DISPLAYED WARNING THAT TEST 1S 
: NOT EXECUTED IF MANUAL INTERVENTION IS NOT 








0213 sSAVE THE REGISTERS 
sSEE IF MANUAL INTERVENTION OK 
021376 104450 
sBRANCH IF ALLOWED 
021 103411 
3603 021402 :PRINT THE WARNING MESSAGE 
021402 012746 021426 
021406 012746 000001 
021412 010600 
021414 104417 
021416 062706 000004 acd SP 
3604 021422 000241 CLC CLEAR CARRY FOR ERROR 
3605 021424 000207 1$: RTS PC ; RETURN 





3606 
3607 021426 045 116 045. NOMAN: .ASCIZ ‘ZNZA eee Manual Intervention not Allowed - Test Aborted eee" 
3608 oeven 


SEQ 96 
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ENVIRN = SETUP FREE DIAGNOSTIC SPACE 


et .SBTTL ENVIRN = SETUP FREE DIAGNOSTIC SPACE 
3o12 SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 
3614 021522 ENVIRN: MEMORY RO 
021522 104431 TRAP CSMER 
3615 021524 010037 003072 MOV RO. FEE ; GET 1ST FREE ADDRESS... 
3616 021530 062737 000002 003072 ADD #2. FREE 
MOV (RO) FRESIZ s...AND WORD COUNT. 
003074 SUB i(ié#G FRE IZ 
MOV LSUNIT,R : GET NUMBER OF UNITS 
003074 108: SUB #7 FRESI2 AKE AWAY 7 WORDS PER UNIT 
BNE 108 


MOV FREE ,RO 
ADD FRESIZ,RO 


SUB #2, 
MOV RO. FREE! 
RTS PC 





sGET FIRST FREE ADDRESS 
POINT TO LAST FREE ADDRESS 


BACK KUP 1 WORD 
> STORE LAST FREE ADDRESS 
sRETURN 


SEQ 97 








CZTUZAO TU8O FRONT END PRT D 


KTINIT 


3675 021752 





177777 


177777 


MACRO 


001577 


000004 


093100 
003100 


177740 


177777 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


-SBTTL KTINIT 
:ROUT INE TO INIT KT-11 











KTINIT: 
C KTFLG 
CLR —« KTENABLE 
CMP 80 séLSWIME, #1577 
BLOos 6 s«é9S 
MOV QFERRVEC.RO 
MOV #28, Q#ERRVEC 
TST agsro 
NOP 
MOV §-— LSHIME,.KTFLG 
BIC #177 ,KTFLG 
MOV «RO, AFERRVEC 
CLR 
MOV IPARO,R 

18: MOV e776, “A0cRt) 
ADD £260,80 
CMP 0,80" 


BNE i$" 
MOV #177600 ,-(R1) 
BR 98 

2s: MOV #6$,, (SP) 

6$: MOV — 
BGNPROT 

<1, -1, 1, -1 





- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


INIT >28K MEMORY FLAG 


INIT TEST >28K FLAG 
GOT ENOUGH 





MEMORY (>28K)? 
SAVE OLD ERR vec PTR. 





SET ERR VEC PTR 
GOT KT11? 


(TRAP If NO). 
YES. SET KT FLAG. 


m0 = AR OLD ERR VEC PTR. 








Ri = KI REGS P 

SET “DESCRIPTOR ne. 
SET KIPAR REG. 

BUMP AR DATA BY °’6K"’. 
AT *'1/0°'? 


NO. 
YES. SET KTPAR7 FOR 1/0. 
SET UP RETURN 


RTI] TO NEXT LOCATION 
RESTORE OLD ERR VEC PTR. 





sNO DEVICE PROTECTION REQUIRED. 


SEQ 98 

















CZTUZAO TUBO FRONT END PRT D 


INITIALIZE SECTION 


012737 
005037 





022076 
3714 022100 
022100 
3715 022102 
3716 Gee tte 





3717 055106 


005672 002146 
003106 


003102 
002246 
000036 
002150 
003060 
002150 


003130 
040000 


000035 
000040 


000057 


002162 











— oe eee 2 eee 
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002012 


003130 


eSBTTL INITIALIZE SECTION 


THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
sAT THE BEGINNING Or EACH PASS. 


IF “START OR “RESTART, SET QUICK~PASS FLAG AND BUS-INIT. 
7 iF “*CONTINUE’’, NOTHING IS REQUIRED. 


s+ 
INSERT TEMPORARY JUMP TO ODT 


LSINIT:: 
408: 


2$ 


BGNINIT 


;SET UP PRIMARY ve FOR REPLACEMENT 
sCLEAR “’SOFT INIT’ Ay 

CLEAR TEST ABOVE 28K FLAG 

CLEAR RAM SIZE FOR RAMERR ROUTINE 


MOV #EPRT1 ,EPRTSW 
IFLAG 






TRAP CSREFG 

tala 1$ 

CMP UNITN,LSUNIT 3UN UNIT IN RANGE? 
BHIS 4$ ; ° 

TST DUFLG sDROPPED UNIT? 
BMI NXTU sBR IF YES 

MOV UNITN,RI 

ASL RI 

TST ERTABL (RI) 


BE U 
BIT gag ; DROPPED? 
200 NOTHING IF *‘CONTINUE’’. 












TRAP C G 
BNCOMPLETE NXTU sTAKE NEXT UNIT IF NOT NEW PASS. 
Bcc NXTU 

READEF #EF .START 

MOV di 


o START RO 
TRAP _CSREF 
> lead es 


BCS 
READEF #EF RESTART 
MOV * "aa oRO 








31ST art BUS-INIT... 


oy . ] ( 
hi ie i A ‘ ‘ 


SEQ 99 


LLL LLL LO LLL AL LLL LLL LL 





J 8 
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CZTUZAO TUBO FRONT END PRT DO 
INITIALIZE SELTION 


3718 022110 005037 002170 CLR FATFLG :RESET FLAG TO ZERO “FATAL ERRORS’ 
000406 BR 19$ HE F LAG I $ Wor SET 
:(NO DEBUGGER ETC 
012746 000340 MOV #340,-(SP) 
012746 022136 MOV —s-:« #203, = (SP) |RETURN TO DEBUGGER 
137 064424 JP sé. ODT : s@@ENTER THE DEBUGGER 
005037 003332 198: CLR SKIPT “CLEAR THE SUBTEST ‘'SKIPPER’’ 
012737 177777 002152 mov ss =, VP i 2 sQUICK VERIFY... 
004737 021522 JSR PC ,ENVIRN “SET ENVIRONMENT 
004737 021610 JSR PCLRTINIT ‘INITIALIZE KT MEMORY MANAGEMENT 
012700 003130 MOV —-MERTABL -RO 
005020 30S: CLR (RO) + SCLEAR THE ERROR TABLE 
020027 003330 CMP RO #ERTABE 
103774 BLO 30$ 
000404 BR i$ 
005037 002152 3i$: CLR ave 
137 022246 JMP sé PASRRPT G0 REPORT THE STATUS 
4$: 
012737 177777 002150 NEWPAS: MOV = #-1,UNITN sINIT UNIT NUMBER. 
005037 002166 CLR —sdDEVENT “CLEAR COUNT OF DEVICES RUNNING 
NXTU: BREAK 
04422 TRAP CSBRK 
005237 002150 INC UNITN :..eAND SET NEXT UNIT NUMBER. 
023737 002150 002012 CMP —sUINI. TN, LSUNIT 
103423 BLO TU 
7 012737 177777 003060 MOV —s_-« #1, DUFLG 
3745 022240 000401 BR 11$ 
3746 022242 DOCLN sABORT, NO MORE UNITS. 
42 104444 TRAP  CSDCLNN 
3747 022244 000240 11$: NOP 
3748 022246 PASRPT: 
3749 022266 023727 002012 000001 cep 0 séLSUNI'T, #1 sHOW MANY UNITS SELECTED? 
3750 022254 101752 BLOS  NEWPAS : 
3751 022256 005737 002166 TST DEVCNT ARE ANY STILL RUNNING? 
3752 022262 001747 BEQ NEWPAS “BR IF NO 
3753 022264 RFLAGS RO 
022 104421 TRAP  CSRFLA 
3754 022266 032700 000100 BIT #1SR,RO :SHOULD WE PRINT STATISTICS 
3735 022272 001343 BNE NEWPAS “BR IF NO 
3757 022274 DORPT 
022274 104424 TRAP  CSDRPT 
3758 022276 000741 BR NEWPAS 
3759 022300 108: 
3761 022300 SETU: GPHARD UNITN,RO GET UNIT N P=TABLE POINTER. 
022300 013700 002150 ‘NOV 1TN,RO 
022304 104442 TRAP  CSGPHRD 
3762 022306 BNCOMPLETE NXTU BR IF UNIT NOT AVAILABLE. 
O22 103342 Bcc NXTU 
3763 022310 005037 003060 CLR SCLEAR “DROPPED FLAG. 
3764 022314 005237 02166 INC DEVCNT 
3765 022320 01200 MCV (RO) +,R1 GET 1ST REGISTER ADDRESS. 
010137 002154 MOV  _—s R1,, CSRADDR “ADDRESS OF REGISTERS OF UNIT UNDER | TEST 




















——————— ee 








SEQ 101 
CZTUZAO TU8O FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 72-2 
INITIALIZE SECTION 

3768 022326 012001 MOV (ROD+,R1 :GET VECTOR ADDRESS. 

3769 022330 011002 MOV (RO) R2 :GET INTERRUPT PRIORITY 

3770 022332 010237 002160 MOV R2, 1PRI SSET INTERRUPT PRIORITY 

3771 022336 010137 002156 MOV Rn? 1VEC “SET INTERRUPT VECTOR POINTER... 

3772 022342 012721 017056 MOV #inir, (R1)4 =. . VECTOR. «« 

3773 022346 010221 MOV r2,(R1)¢ :. AND PRIORITY. 

3775 022350 1$: 

3776 : TST ave 21ST PASS ? 

; BEO 5$ :NO, SKIP +e PASS 1 STUFF. 


51ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
s THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 











013701 002150 ov UNITN,R1 
052761 100000 003130 BIS #B1T15,ERTABL(R1) ;SAY DEVICE RUNNING 
005037 005232 CLR EXTA SCLEAR ERROR EXTENSION FLAG. 
023727 002012 000001 CMP LSUNIT, #1 SARE WE TESTING MULTIPLE UNITS? 
101416 108 ; NO. 
“YES <= GET OPERATOR FLAGS. 
104421 
032700 001000 sSHOULD WE PRINT UNIT #? 
001412 3BR IF NOT. 
SPRINT THE UNIT # 
013746 00 
012746 022502 
012746 
010600 
104417 
062706 000006 is 
434 005037 003062 
440 013701 002154 SADDRESS OF FIRST REGISTER 
010102 “START OF REGISTERS 
702 000000 ADD “ADDRESS OF TSSR REGISTER 
737 (017264 JSR PC XNKM STEST BOTH CONTROLLER REGISTERS... 
103005 Bcc 2$ BR IF ALL OK. 
010137 003062 MOV R1,NODEV “FLAG DEVICE AS NON-EXISTENT 
012737 177777 003060 “ MOV #-1 ,DUFLG “DROP THIS UNIT. 
FINALLY, SET CPU PRIORITY AND WERE DONE. 
S$: SETPRI #PRIO0 sENABLE INTERRUPTS. 
2 012700 000000 MOV #PRIO0,RO 
104461 TRAP CSSPRI 
ENDINIT 
110030: 
106411 TRAP  CSINIT 





045 116 045 PUNIT: iy /ENENZACeeee TESTING UNIT 2D22A eeeee/ 


EO 
— aaa nnn ete mete 
ome ewe _~ -_~ -~ 
A CT LL LLL LE LLL eel eee 







eee em ee ee ae 


L 8 





SEQ 10 
CZTUZAO TUBO FRONT END PRT D MACRO M1200 29-MAR-B83 15:43 PAGE 73 
ADD AND DROP UNITS SECTIONS 
3812 .SBTTL ADD AND DROP UNITS SECTIONS 
3814 
3815 THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3816 : TO BE (A) ADDED Tu THE TEST LIST FOR THE FIRST 
aie ; OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
3819 022550 BGNAU 
022550 LSAU:: 
3820 022550 010001 MOV RO,R1 ; GET UNIT "0 BE ADDED (RO) 
3821 022552 006301 "ASL R MAKE IT A WORD INDE 
022554 052761 100000 003130 BIS #100000,ERTABL(RI) ; SET THE ACTIVE’ BIT 
022562 042761 040000 003130 BIC #40000,ERTABL(R1) ; CLEAR THE ‘DROPPED’ BIT 
3824 022570 PRINTF #1$,R0 
2570 010046 V 
2572 012746 022616 MOV 
022576 012746 000002 MOV 
01 MOV 
2 104417 TRAP 
062706 000006 ADD 
EXIT 
000167 ; 
000026 .WORD 110031-2-. 
045 116 045 1S: -ASC1Z /2NZA UNIT ZDZA ADDED/ 
ENDAU 3 UNUSED. 
110031: 
104452 TRAP  CSAU 







THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO BE REMOVED FROM THE TEST LIST. 


SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
TS ARE RE-SELECTED ON OPERATOR “STA OR ‘ADD 

COMMAND, OTHERWISE RERAIN INACTIVE. THE DISPLAY". COMMAND 

WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 

WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 


















L$oU — 

012737. 177777 003060 MOV ss 1. DUFLG 
010001 MOV RO.RI 
006301 ASL 
052761 140000 003130 #140000, ERTABL (RID : SAY DROPPED 
000240 000240 000240 246, 0,240,240 “a | 22222222? 
010046 NOY RO, -(SP) 
012746 022722 MOV #1$,-(SP) 
012746 000002 MOV 2,°(SP) 
010600 ,RO 

022710 106417 TRAP CSPNTF 

022712 062706 000006 ADD —«-«#6, SP 

3848 022716 EXIT OU 
022716 000167 5 JSJMP 
022720 0000 “WORE 1032-2- 


es — 





103420 
766 012727 
772 000000 
022774 013727 

000000 








02 
023026 104461 


Me TUBO FRONT END PRT D 
ADD AND DROP UNITS SECTIONS 


3849 022722 045 
3850 
3851 022752 
022752 
022752 104453 
3852 
3855 
3854 
3855 po Ley 


116 


012703 000550 
004737 017110 


000372 
002116 
177772 
177756 


7 020142 
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045 18: ci /2NZA UNIT ZDZA DROPPED/ 

ENDDU 

L10032: 

= TRAP C$Ddu 

: AUTO=-DROP CODE SECTION. 
BGNAUTO 

LSAUTO:: 
MOV #360. ,R3 sENOUGH TIME FOR a REEL TO REWIND 

108: JSR PC ,WAILTF :WAIT FOR SSR TO SET 
Bcs 208 ; LEAVE WHEN SSR IS SET 
DELAY 250. sWAIT FOR .25 SECONDS 
MOV #250. ,(PC)+ 
WORD 
MOV LSDLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE 74 
DEC -22(PC) 
BNE 720 
DEC :BUMP COUNTER DOWN 
BNE 10$ +g GOING 

208 JSR PC ,CKDROP sTRY AND DROP UNIT 
ENDAUTO 3; UnuSED. 

110033: 
TRAP CSAUTO 


SEQ 103 | 








CZTUZAO TU8O FRONT END PRT D0 
CLEAN-UP AND REPORT CODING SECTIONS 





005737 003060 
100405 
012765 000000 
004737 017110 
104412 
012746 025314 
012746 000001 
010600 
104416 
062706 000004 
010246 
010346 


010246 
34 

012746 

. 2746 


104416 





02022 
001012 


10346 


003130 


040000 
170000 


023351 


000010 
160000 


————— aa ES ™ — _ —_ " 
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000000 


~SBTTL CLEAN-UP AND REPORT CODING SECTIONS 


THE CLEANUP COD!NG SECTION CONTAINS THE CODING THAT IS 
S EXECUTED AT THE End OF EACH PASS (OR SUB-P 
; ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 


BGNCLN 
LSCLEAN:: 
T DUFLG s*DROPPED’’ FLAG IS SET ON.. 
BMI 1$ + ee AND GROSS CONTROLLER FAULT... 


3eeeDON'T TRY TO XCT CLEANUP CODE. 


MOV #0, TSSR(RS) sto SOFT INIT 
1 JSR PC WAILTF 
2s: ENDCLN 
110034: 
TRAP CSCLEAN 
s+¢ 
: THE REPORT CODING SECTION CONTAINS THE 
; "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 
BGNRPT 
LSRPT:: 
PRINTS #DEVSUM 
#1,-(SP) 
SP,RO 
TRAP CSPNTS 
ADD #4 ,SP 


ae START ay or TABLE. 
GET ERROR TABLE ENTRY & TEST IT. 
ZERO IF UNIT NOT 


WAS UNIT DROPPED? 
GET ERROR COUNT FIELD 


1$: MOV (R4) ,R2 


2s: R2,#160000 : WAS UNIT NON-EXISTENT? 
#DEVNXR RS 


#DEVNXR,-(SP) 





SEQ 104 


LL LLL LO LE OE 


LC CC OL LS ALLE OEE LD LLL LOL ee ee eS 


A 


Q 105) 
CZTUZAO TUSO FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 74-1 s€a 10 
CLEAN-UP AND REPORT CODING SECTIONS 


023174 010600 MOV SP,RO | 
TRAP CSPNTS | 
000006 ~ oa 
160001 3$: CMP R2,#160001 3; WAS UNIT NOT READY AT STARTUP? | 
308 ; BR IF NO. 
PRINTS #DEVNRD,RS 
MOV =—s_-R3,= (SP) | 
023503 MOV #DEVNRD ,-(SP) | 
000002 MOV #2,°(SP) 
MOV SPR 
TRAP CSPNTS 
000006 ADD #6,$ 
BR af 
170000 30S: BIC #°C7777 .R2 
PRINTS + he | RZ 
MOV SP) 
MOV 
023564 MOV 
MOV 
MOV 
TRAP 
706 000010 ADD 
000002 ADD 


7 003330 









CSRPT 
116 /ENZADEVICE STATUS SUMMARY: 2N/ 
101 /ZA UNIT ZDSZA ONLINE, ERRORS = 2DEN/ 
101 RDSZA D, NON-EXISTENT REGISTERZN/ 
101 D, NOT READY AT STARTUPZN/ 
101 /%A UNIT ZDSZA DROPPED, ERRORS = ZDEN/ 


(SP)* Ra 
; UNUSED. | 

| 

| 

| 








CZTUZAO TUBO FRONT END PRT D 


TEST 1: WRITE TAPE MARK RETRY 


3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 623634 
023634 
3959 023634 005037 002170 
3960 023640 005037 003100 
012737 005672 
3966 023652 012700 032101 
3656 004737 017376 
3662 012737 000002 
005037 026534 


3969 023670 
3970 023674 


¢ 9 
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eSBTTL TEST 1: WRITE TAPE MARK RETRY 


STHIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
;REVERSE., ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 


THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 








BGNTST " 
CLR FATELG SCLEAR FATAL ERROR FLAG 
CLR FLG sHOLD OFF KT11 
002146 MOV PEPRT! EPRTSU sPRI ERROR “ZSSAGE 
MOV =« #TST291D,RO “ASCI] MESSAGE 10 IDENTIFY TEST 
JSR Pc TSTSETUP "D0 INITIAL TEST SETUP 
002164 MOV «#2 LOOPCNT SPERFORM 2 ITERATIONS 
sia CLR TOSCNT “CLEAR TAPE RECORD COUNTER 





SEQ 105. 


<_<. + 


TEST 








004 
103426 


000000 
013727 


CZTUZAO TU8O FRONT END PRT D 
1: WRITE TAPE MARK RETRY 


002116 
177772 
177756 
026540 


7 020070 


0263556 
010522 


020070 


2 000100 





. 9 
MACRO M1200 29-MAR~83 15:43 PAGE 77 


+ 


;TEST 1, SUBTEST 1 





VERIFIES THAT Se TAPE MARK RETRY COMMAND ISSUED WHILE T 


E 1S POSIT D AT BOT CAU 


; TAP 
sWON-ENECUTABLE FUNCTION (NEF) ERROR BIT SET 


BGNSUB 

JSR PC, T29REST 

JSR PC. T29RT2 

JSR PC. T29RT3 

026540 MOV #10000. ,T29DLY 

10$: JSR PC, SOF INIT 

BCs 

DELAY 250 

DEC T290LY 

BNE 10$ 

JSR PC FATCHK 

MOV ‘ 

ERRDF ERRNO, SFIERR,SFINSG 
20S: 

MOV ST29PACKET RG 

JSR PC ,WRTCHR 

cs 25 

ISR PC, FATCHK 

ERRHRD ERRNO,WRTMSG, SF INSG 
25$: CKLOOP 

mov TSSR(RS) RI 

MOV . 

BIC #OFL,R2 

; CHP R1 he 














sINC_ AND CHECK 

;SAVE CONTENTS OF TSS 

“WRITE CHARACTERISTISC — 
- WORD 
- WORD 
- WORD 

sLOOP IF SELECTED 
TRAP 

sGET THE TSSR 

sSE1 UP EXPECT 


ED 
sOFF LINE SHOULD NOT BE SET 
7TH hd SHOULD BE Ra 


HE 
SES a a atl TERMINATION, WITH THE 
3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
C$BSuB 
sSET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
3sSET DELAY ROUTINE 
:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
DELAY ABOUT ae SECONDS 
MOV #250, (PC)+ 
WORD 
MOV LSDLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE 274 
DEC =22(PC) 
BNE -* 
sBUMP DELAY ROUTINE DOWN 
<BR, IF MORE DELAY TIME LEFT 
INC AND CHECK FOR MORE THAN 25 ERRORS 
> CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
T CSERDF 
-WORD 101 
eWORD SFIERR 
. SFINSG 
sSUBROUTINE NEEDS PACKET ADDRESS 
3 ISSUE WRITE CHARACTERISTICS 
$ F ry 


ISSUED OK 
FOR by THAN 25 ERRORS 


CSERHPD 
102 

WRIMSG 
SF IASG 


CSCLP1 


SEQ 107. 


- eee _- _—=- 


’ 
—— lie es 





—e 9 


CZTUZAO TU80 FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 77-1 
TEST 1: WRITE TAPE MARK RETRY 


SEQ 108 















4019 024052 ERRDF ERRNO, T290FL.EXPREC sDRIVE 1S OFF LINE 
024052 104455 TRAP CSERDF 
024054 000147 .WORD 103 
024056 026542 “WORD  T290FL 
024060 016334 “WORD EXPREC 
4020 024062 004737 020142 JSR PC, CKDROP sTRY AND DROP DRIVE 
4021 024066 004737 010424 268: JSR PC REWIND [CALL TAPE REWIND COMMAND 
4022 024072 016501 000000 MOV TSSRCRS) RI : § 
4023 024076 012702 000200 mOV #SSR,R2 “SET UP EXPECTED TSSR 
4024 024102 103407 BCS 30$ “BR, IF NO PROBLEM 
4025 024104 010004 MOV RO,R4 “PACKET ADDRESS SET UP 
4026 024106 004737 020070 JSR PC FATCH SINC AND CHECK FOR MORE THAN 25 ERRORS 
4030 024112 ERRHRD ERRNO, ToORUN, PKTSSR “REWIND NOT ACCEPTED 
024112 104456 CSERHRD 
024114 000150 .WORD 106 
024116 030260 “WORD  T29RWN 
024120 011670 "WORD PKTSSR 
4031 024122 30$:  CKLOOP SLOOP IF SELECTED 
4122 104406 TRAP  CSCLP1 
4032 024124 013701 026376 MOV T29BFR*6,R1 sPICK UP XSTO 
4033 024130 010102 MOV R1,R2 °SET UP EXPECTED 
4034 024132 052702 000002 BIS #B1T1,R2 “SET BOT Bit IN EXPECTED 
4035 024136 020102 CMP R1,R2 SDOES EXP = REC'D 
4036 024140 001406 BEO 4 3BR, IF EQUAL (OK) 
4037 024142 004737 020070 JSR PC, ,FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
4041 024146 ERRHRD ERRNO, T29B0T .EXPREC :TAPE NOT AT BOT AFTER REWIND 
024146 104456 CSERHRD 
024150 000151 "WORD 105 
024152 027751 “WORD 129B0T 
024154 016334 “WORD EXPREC 
4042 024156 40$:  CKLOOP SLOOP IF SELECTED 
024156 104406 CSCLP1 
4063 024160 013737 003072 026502 mov : ADDRESS OF READ BUFFER 
4044 024166 026500 MOV sreiGlt t29ee3 WRITE TAPE MARK RETRY, CVC=1,ACK COMMAND 
MOV 3SET UP R& WITH PACKET ADDRESS 
MOV ma WspBtRs) COMMAND 
JSR PC.MALTE FOR SSR TO SET 
MOV TSSR(RS) RI 
MOV @SSR'SC'BIT1!BIT2,R2 
Ri, R2 : 
BEQ 75 sBR, IF OK 
JSR PC .FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T29WDE .PKTSSR *TSSR INCORRECT AFTER READ DATA 
TRAP CSE RHRD 
.WORD 106 
“WORD =T 
“WORD PKTSSR 
75$:  CKLOOP SLOOP IF SELECTED 
024260 104406 TRAP  CSCLP1 
4058 024242 013701 026376 MOV T29BFR+6,R1 sGET XSTO STATUS WORD 
4059 024246 010102 nov R1,R2 sSET UP EXPECTED 
4060 052702 002000 BIS #B1T10,R2 “SET THE NEF BIT 
4061 020102 CMP R1R2 SARE THEY EQUAL 
4062 026256 001406 BEQ 170% “BR, If EQUAL (GOOD) 
4063 024260 004737 020070 JSR PC, FATC SINC AND CHECK FOR MORE THAN 25 ERRORS 
4067 024264 ERRHRD ERRNO, TOONEE ,EXPREC “NEF SHOULD BE SET 


024264 104456 Uf CSERHRD 


CZTUZAO TU8O FRONT END PRT D 
TEST 1: WRITE TAPE MARK RETRY 


4068 02 
4069 024274 
4070 024276 
4071 024300 
024300 
024300 
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170$: 
COM R3 
BNE 26% 
ENDSUB 


sRESET THE SWITCH 


sBR, IF FIRST TIME THROUGH HERE 


110037: 


TRAP 


EXPREC 


CSESUB 


SEQ 109, 





LL LL LLL LLL LL A ee 
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CZTUZAO TUSO FRONT END PRT OD 


























































TEST 1: WRITE TAPE MARK RETRY 
4073 :¢ 
4074 : 
re s TEST 1, SUBTEST 2 
4077 VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE 
4078 s1S POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) RESULTS IN 
then ; TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT 
408% : 
4082 2 
4083 ; 
4084 "ae 
BGNSUB 3>>>>>>>>>>>> as ae >>>>>>>>>>>> 
TRAP C$8suB6 
JSR PC, T29REST sSET COMMAND PACKET 
JSR »T29RT2 sSET UP OTHER COMMAND PACKET 
JSR PC, T29RTS sSET UP OTHER COMMAND PACKET 
JSR PC, SOF INIT 300 INITIALIZE ON CONTROLLER 
acs} —ss«20 BR IF INIT WAS OK 
JSR PC. FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
MOV RO.R * CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
T CSERDF 
-WORD 108 
-WORD SFIERR 
-WORD SFIMASG 
208: 
024 012704 026350 MOY ST29PACKET RS ; SUBROUTINE NEEDS PACKET ADDRESS 
4100 024350 737 010322 JSR PC ,URTCHR TIC 
4101 024354 103407 eBcs 25 
4102 024356 004737 020070 JSR PC ,FATCHK 
4106 024362 010001 MOV ‘ CONTENTS OF TSSR 
4107 024364 ERRHRD ERRNO, URIMSG,SF IASG WRITE CHARACTERISTISC ey 
024364 104456 CSERHRD 
024 one 109 
024370 -WORD WRTASG 
024372 SF IMSG 
4108 024374 25$: CKLOOP sLOOP IF SELECTED 
02637 RAP CSCLP1 
4109 0243576 010424 268: JSR PC REVI sCALL TAPE REWIND COMMAND 
4110 026402 000600 MOV TSeRURS) RI :GET TS 
111 024406 702 0002006 mae @SSR,R2 3SET UP EXPECTED TSSR 
4112 024412 Bcs 3 IF NO PROBLEM 
4113 024414 MOY RO,R4 PACKET ADDRESS SET UP 
4116 024416 020070 JSR PC FATC sINC AND CHECK FOR MORE THAN 25 ERRORS 
4118 oases ERRHRD ERRNO, TOORUN, PKTSSR REWIND NOT ACCEPTED 
024424 
T29RWN 
Osee 308 OOP IF SELECTED — 
4119 : CKLOOP sk L 
024432 1 TRAP CSCLP1 
20 024434 013701 026376 BOY T29BFR*6,R1 sPICK UP XSTO 
4121 024440 010102 MOV A SET UP EXPECTED 
4122 024442 2702 000002 & T1R > 


in 
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SEQ 111 | 
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TEST 1: WRITE TAPE MARK RETRY 
4123 024446 020102 CMP R1,R2 sDOES EXP = REC'D 
4124 024450 001406 BEQ 40$ BR, IF EQUAL (OK) 
4125 024452 004737 020070 JSR PC, FAT SINC AND CHECK FOR MORE THAN 25 ERRORS 
4129 024456 ERRHRD E®RNO, F59B0T EXPREC “TAPE NOT AT BOT AFTER REWIND 
02 104456 TRAP CSERHRD 
024460 000157 WORD 113 
3 oees8e “WORD H ORE 
x 
4130 024466 012737 000001 026502 40$: MOV 298. sNUMBER OF RECORDS TO SPACE OVER 
4131 024474 012737 000400 026506 MOV rhe. $2 SSET UP RECORD SIZE 
4132 024502 012737 140005 026500 MOV atk 40065.12 129PK3 “WRITE FORWARD, CVC=1,ACK COMMAND 
4133 024510 012704 026500 MOV SET UP R4 WITH PACKET ADDRESS 
4134 177776 MOV Re TBCRS) S ISSUE COMMAND 
JSR PC WAITF “WAIT FOR $SR TO SET 
MOV TSSRCRS) AI SGET TSSR CONTENTS 
MOV #SSR,R2 ; 
CMP Ri R2 : 
BEQ 75 sGR, OK 
JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
;SOFT ERROR, DON'T CARE ABOUT WRITE 
: COMMAND $ RESULTS - CHECKING WRITE 
“TAPE MARK COMMAND 
ERRSOFT ERRNO, T29WRT.PKTSSR “TSSR INCORRECT AFTER WAITE DATA 
CSERSOFT 
112 
75$:  CKLOOP sLOOP IF SELECTED 
104406 RAP _—- CSCLP1 
4149 024556 012737 000001 026502 MOV SNUMBER OF RECORDS TO SPACE OVER 
4150 026564 012737 140410 026500 MOV #140010. T29PK3 SET UP COMMAND IN APCKET :SET 
4151 024572 012704 026500 MOV 8TZ29PK3,R4 °SET UP R& WITH PACKET ADDRESS 
4152 024576 010465 177776 MOV + TSDBCRS) S ISSUE COMMAND 
4153 024602 737. 017110 JSR PC WAITE SWAIT FOR SSR TO SET 
4154 024606 016501 000000 MOV TSSRIRS) RI 
4155 024612 012702 000200 MOV #SSR,R2 : 
4156 024616 020102 CMP 1,R2 ; 
a1 57 024620 001406 BEQ 1758 3OR, IF OK 
4158 024622 004737 020070 JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
4162 024626 ERRHRD ERRNO, TZOUDE .PKTSSR STSSR INCORRECT AFTER READ DATA ao 
.WORD 113 
“WORD  T29WDE 
“WORD PKTSSR 
175$:  CKLOOP sLOOP If SELECTED 
TRAP  CSCLP1 
003072 026502 MOV SADDRESS OF BUFFER 
141011 026500 MOV WRITE TAPE MARK RETRY.ACK.CVC=1 COMD. 
026500 MOV “SET UP R& WITH PACKET ADDRESS 
177776 MOV S ISSUE COMMAND 
7? 017110 JSR sMALT FOR SSR TO SET 
000000 SR CONTENTS 










TSSRCRS) RI 
100204 OSSRISC!B1T2,R2 
Ri ,R2 


If OK 
— eee be MORE THAN se * ERRORS 





1 
43 oF ATCHK 


'  vevest 


020070 





A 


os ee ee 
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TEST 1: WRITE TAPE 


024710 


104456 
000 


026404 
000001 


020070 
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190$ 


CKLOOP 
MOV ay pe R1 
MOV 
BIS eit sR2 
CMP R1,R2 
BEQ 1 

PC,FA 


JSR 
ERRHRD ERRNO. T29RIB,EXPREC 


— ee ee ee 


TRAP CSERHRD 
-WORD 114 
-WORD Tf E 
PKTSSR 
sLOOP IF SELECTED 
RAP CSCLPI 






sGET XST3 STATUS WORD 
T UP EXPECTED 





¢>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 


TRAP CSESUB 


SEQ 112 


LLL LLL LL -- 


=e a -——_—oooeo 


—“——ne——m  ee wre —s. oe. oe - 


aes 


CZTUZAO TUBO FRONT END PRT D 
WRITE TAPE MARK RETRY 


TEST 1: 





024756 








4202 024760 00473 
42035 024764 00473 
4204 024770 


a 
4201 024756 
024756 


104402 
7 
7 
004737 
012737 
00475 
103426 
012727 
000000 


032130 
032222 
032264 
023420 


7 016634 


000250 
002116 
177772 
177756 
026540 
020070 


026550 


37 0103522 


020070 





—— nn ee 





J 9 
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026540 


4 


sTEST 1, SUBTEST 3 


: VERIFIES THAT A tM TAPE MARK RETRY COMMAND TERM 
sPROPERLY AND HE MARK 


10$: 


238: 


WRITES THE TAPE ONTO TAPE 
: COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND THK=1) 


BGNSUB 


MOV 
ERRDF 





CKLOOP 


JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 


PC, T29REST 
sar 
4 SOF INIT 
208 


250 


T29DLY 

108 

PC FATCHK 

ERRNO, SFIERR,SFINSG 


STZ9PACKET .R4 
PC .WRTICHR 





23 
PC FATCHK 
ERRNO, WRINSG, SF INSG 





PC REWIND 
ae i oR 


PC FATCHK 
ERRNO, TZORWN,PKTSSR 




















INATES 
(BY ISSUING A READ _— 
$>>>>>>>>>>>> “ SUBTEST >>>>>>>>>>>> 
ev: 
C$8sus8 
:SET COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 
sSET UP re COMMAND PACKET 
9250, (PC)+ 
een rene 
-6(PC) 
74 
-22(PC) 
BUMP DELAY ROUTINE DOWN : 
3sBR, IF MORE DELAY TIME LEFT 
INC AND CHECK FOR MORE THAN 25 ERRORS 
sCONTENTS OF TSSR REGISTER 





sFATAL ERROR TSSR WAS ~ OK 


sSUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 
: F COMMAND 


° iS 

31 CHECK FOR MORE THAN 25 ERRORS 
3SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC — 

"WORD 
WORD 























LOOP If SELECTED | 
CALL TAPE REWIND COMMAND 
F NO PROBLEM 








K FOR MORE THAN 25 ERRORS 


GET TSSR 
3S SAVE PACKET ADDRESS 
: AND CHECK 
SREWIND NOT ACCEPTED 

TRAP — 


SEQ 115 


oes oe eee er 





Ns ee TU8O FRONT END PRT = 
TEST 


: WRITE TAPE MARK RETR 

025142 030260 

025144 011670 
4237 025146 

025146 104406 
4238 025150 013701 026376 
4239 025154 010102 
4240 025156 052702 000002 
4241 025162 020102 
4242 025164 0014 
4243 025166 004737 020070 
4247 025172 

025172 104456 

025174 000167 

025176 027751 

025200 016334 
4248 025202 

025 04406 

9 025204 012737 140011 
4250 025212 012704 026500 
4251 025216 010465 177776 
4252 025222 004737 017110 
3 025226 016501 

025232 012702 000200 
4255 025236 020102 

025240 001406 
4257 025242 004737 020070 
4261 025246 

025266 104456 

025250 000170 

024252 030577 

025254 011670 
4262 025256 

025256 104406 
4263 025260 012703 000001 

025264 012737 141011 
4265 025272 012704 026500 
4266 025276 010465 177776 
4267 025302 004737 017110 
4268 025306 016501 000000 
4269 025312 012702 000200 
4270 025316 020102 
4271 025320 001406 
4272 025322 004737 020070 
4276 025326 

025326 1044 

025330 000171 

025332 030577 

025334 011670 
4277 025336 

0253 





4282 025364 
4285 025370 
4284 025576 
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30$: 


40S: 
026500 


70S: 


1508: 


026500 


155$: 


165$: 


026500 
026502 





kK 9 
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eh 
#BiTi.R2 
R1,R2 


408 
PC .FATC 
ERRNO, 129801  EXPREC 


#140011,12 ,129PK3 
RG, veentas) 
PC, "WAIT F 
TSSR(RS) RI 
#SSR,R2 
708 
PC FATCHK 
ERRNO, T29WDC .PKTSSR 


ayaiGi1 .129PK3 
#129PK3,R4 
Ra. TSDB(RS) 
TSSRCRS) RI 
#SSR,R2 
1,R2 
165$ 
PC .FATCHK 
ERRNO, T29WDC.PKTSSR 











#140401, 129PK3 
FREE, T29RB 


aT 

R4, TspB(R5) 
PC ,WALTF 
TSSR(RS) RI 





“SLOOP IF SELECTED 








«WORD T29RWN 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 
sPICK UP XSTO 
SET UP EXPECTED 
SET BOT ay IM EXPECTED 
s DOES EXP = REC*D 
F EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
«WORD 119 
sWORD T29B0T 
WORD EXPREC 


sLOOP IF SELECTED 
TRAP CSCLPI 

WRITE TAPE MARK,ACK,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 


3 ISSUE COMMAND 
sWAIT FOR SSR TO SET 
CONTE 











OR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER =. TAPE MARK 


sBR, IF OK 
INC AND C 


HECK F 








T29WDC 
PKTSSR 


CSCLP1 








SNUMBER OF RECORDS TO WRIT 
WRITE TAPE 
[SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 

WAIT FOR SSR TO SET 
sPICK UP TSSR 

:SET UP EXPECTED (SSR ONLY) 

TATUS G00D 


sWAS S$ 
:BR, IF goog ty WAS GOOD 

AND CHECK FOR MORE THAN 25 — 
STSSR NOT CORRECT AFTER WRT TAPE A 

TRAP CSE 

121 
T29ubdc 
PKTSSR 
CSCLP1 





























sLOOP IF SELECTED 


TRAP 
sREAD REVERSE ACK, COMMAND 
SNUMBER OF RECORDS TO SPACE BACK 
ssE1 UP R4 WITH PACKET ADDRESS 


COMMAND 
T FOR SSR TO SET 
Get iat Sy pd 











CSERHRD 
120 


E TA 
MARK RETRY.ACK.CYC=1 COMMAND 


SEG 11 


4 





TEST 1: WRITE TAPE MARK RETRY 


4285 025400 ©20102 CMP 

4286 025402 001406 BEQ 

4287 025404 004737 020070 JSR 

4291 025410 ERRHRD 
025410 nee 


925412 00017 
025414 031543 
025416 011670 
4292 025420 222$: CKLOOP 
025420 


104406 
4293 025422 013701 026376 MOV 
4294 025426 2 


01010 MOV 
4295 025430 052702 100000 B1S 
4296 025434 02 CMP 
06 BEQ 
$440 004737 020070 JSR 
ERRHRD 
104456 
173 
32006 
016334 
226$: CKLOOP 
104406 
ENDSUB 


t 9 
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R1,R2 
2288 
PC, FATCHK 
E°RNO, TOORDG.PKTSSR 


T29BFR+6,R1 

R1,R 

#B1T15,R2 
R1,R2 


PC.FA 
ERRNO. TORN, EXPREC 










s ARE THEY EQUAL 


F 
“ING AND CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT” OFTER SPACE CE CAD. 


sLOOP IF SELECTED 
sPICK UP XSTO 








sLOOP IF SELECTED 
RAP CSCLPI 
§<€€€€<<4<<< END SUBTEST >>>>>>>>>>> 
110041: 
CSESUB 


SEQ 115 


—_ A 


’ 
nee ae ee 


TEST 


4322 025504 
4323 025510 


004 
103426 


000000 
520 013727 
000000 


4326 025546 
4327 025550 004757 


4331 025554 
4332 56 


560 

025562 

564 

4333 025566 
4334 025566 
ro 025572 


CZTUZAO TU8O FRONT END PRT D 


1: WRITE TAPE MARK RETRY 


? 032130 


002116 
177772 
177756 


7? 026540 


020070 


026350 
0103522 


020070 





rs 


a 9 
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026540 


+ 


;TEST 1, SUBTEST 4 


10$: 


20S: 


23$: 


RATION IS PE 
TE TAPE MARK RETRY 
SRECORDS REVERSE COMMANDS IN 








we ee ee ee ee 




































VERIFIES THAT THE SPACE“REVERSE PORTION OF THE WRITE TAPE MARK 
3R TRY OPE RFORMED BY REWINDING THE TAPE, ISSUING SEVERAL 
COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 
N SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
sCOMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 
¢>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
C$8SuB 
PC ,T29REST ; C PACKET 
PC ,T29RT2 :SET UP OTHER COMMAND PACKET 
PC, T29RTS 3sSET UP OT a COMMAND PACKET 
#10000. ,T29DLY SET UP DELAY ROUTINE 
PC SOF INIT 300 INITIALIZE ON CONTROLLER 
208 BR IF INIT WAS OK 
250 DELAY ABOUT .25 SECONDS 
MOV #250, (PC)+ 
LSOLY,(PC)+ 
-6(PC) 
74 
— 
T29DLY sBUMP DELAY ROUTINE DOWN 
1 BR, IF MORE DELAY TIME LEFT 
PC .FATCHK SINC CHECK FOR MORE THAN 25 ERRORS 
’ CONTENTS OF TSSR REGISTER 
ERRNO, SFIERR,SFIMSG sFATAL ERROR TSSR WAS NOT OK 
T CSERDF 
-WORD 124 
-WORD SFIERR 
-WORD SFIMSG 
ST29PACKET .R4 sSUBROUTINE NEEDS PACKET ADDRESS 
PC ,WRTICHR ISSUE WRITE CHARACTERISTICS 
23 BR, IF COMMAND ISSUED OK 
PC .FATCHK s INC AND CHECK FOR MORE THAN 25 ERRORS 
° SAVE CONTENTS OF TSSR 
ERRNO, WRIMSG, SF IASG WRITE CHARACTERISTISC FAILKCD 
TRAP CSERHRD 
-WORD 125 
-WORD WRTASG 
-JORD SFIASG 
sLOOP IF SELECTED 
TRAP CSCLP1 
PC REWIND sCALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 
TSSRCRS) RI 3GET TSSR 
RO.R4 : SAVE PACKET ADDRESS 
Thy, s INC +f Sage FOR MORE THAN 25 — 
D125 CC ww 


SEQ 116 


| 
| 










02 
4353 025650 
5650 
4354 025652 
4355 025656 
4356 025660 


000200 
030577 
025756 
4378 025760 
025760 
4379 025762 
380 025766 


000201 
030577 
011670 
026046 104406 

005303 
001355 


012737 
012737 


ee TUSO FRONT END PRT = 
TEST 1: WRITE TAPE MARK RETR 


026376 
000002 


020070 


140011 
026500 


020070 


140410 026500 


000001 


nN 9 
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026500 


026502 
026500 


026502 


30$: 


40S: 


70$: 


150$: 


155$: 


165$: 


CKLOOP 


CKLOOP 
DEC 


BNE 
MOV 
MOV 


te ila 
#B1T1,R2 
R1R2 


PC FA 
ERRNO. T29B0T ,EXPREC 


#140011 ,T29PK3 
#T29PK3,R4 
R4, TSDB(RS) 

PC WAITE 
TSSRCR5S) RI 
#SSR,R2 


PC FAT 
ERRNO, T29uDC, PKTSSR 


210. <8e 

#141011, T29PK3 
#T29PK3,R4 

Ra TSDB(RS) 


PC ,WAITF 
TSSR(RS), oR1 


#SSR,R 
R1,R2 
165$ 


PC ,FATCHK 
ERRNO, T29WDC ,PKTSSR 


R3 

155$ 

#140410, T29PK3 
#1, T29RB 


a er we ee eee ee ——— «< 


CSERHRD 
126 
WOR T29RWN 
WORD PKTSSR 
CSCLP1 


sLOOP IF SELECTED 


sPICK UP XSTO 
:SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
:DOES EXP = REC'D 
:BR, IF EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 


«WORD 127 





«WORD T29B0T 

«WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


WRITE TAPE MARK,ACK,CVC=1 COMMAND 
:SE1 UP R4 WITH PACKET ADDRESS 


71S COMMAND 
sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 


:SET UP EXPECTED 
ARE THEY EQUAL 
INC AND CHECK FOR MORE THAN 25 ERRORS 
3TSSR INCORRECT AFTER a TAPE MARK 
CSERHRD 
"WORD 128 
WORD T29wWDC 
WORD PKTSSR 
sLOOP IF SELECTED 
CSCLP1 


TRAP 
s NUMBER 3 RECORDS TO WRITE TM 


sSET UP PACKET 
WRITE TAPE MARK RETRY,ACK.CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
WAIT FOR SSR TO SET 
sPICK UP TSSR 
sSET UP Pig Ui (SSR ONLY) 


: TATUS GOOD 

sBR, IF yas ght iy WAS GOOD 

SINC AND CHECK FOR MORE THAN 25 : 
sTSSR NOT CORRECT AFTER oe 


CSERHRD 
eWORD 129 
WORD T29WDdC 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


; BUMP wie DOWN 
<BR, IF LESS THAN 10 TAPE MARKS 
s SPACE REVERSE ,ACK,CVC=1, COMMAND 





SEQ 117. 


EE RE - 


ee Ee 


a 


Sas TUBO FRONT END PRT = 
TES” 1: WRITE TAPE MARK RETR 


4399 026070 
4400 026074 


01 
4403 026110 


4404 026114 
4405 02611 


4406 
4410 026124 


—_ 
orRNo 


4441 Oeste 
026316 


012727 
000000 
013727 
000000 


000205 
031624 


104406 


177756 
026540 
020070 


MACRO M1200 


026500 
026502 


026540 


222: 


2308: 


260$: 


270$: 


CKLOOP 


DEC 


CKLOOP 


So iV 
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#T29PK3.R4 
R4, TSDB(RS) 


PC, 
TSSRCRS).R 
Hssnise 6112, R2 
R1,R2 


228 
PC .FATCH 
ERRNO, T29MDE, PKTSSR 


hes al 


sTEgPRS ng 
200. ,T29DLY 


AITF 


PCW 

TSSRCRS) RI 
#SSR'SC!BIT2,R2 
R1,R2 


2 
250 


T290LY 

2308 

PC FAT 

ERRNO, 129SDG,PKTSSR 


T29BFR+14,R1 
R1,R 
#BiTO,R2 
R1,R2 


7 
PC FAT 
ERRNO, T2ORIB, EXPREC 


3 SET y ean WITH PACKET ADDRESS 
WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
sSET UP EXPECTED 
sARE T 
38R, IF OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER a * CMD. 
CSERHRD 
130 
T29WDE 
PKTSSR 


CSCLP1 








- WORD 
sLOOP IF SELECTED 


s SPACE Re oye F ACK. COMMAND 
R OF RECORDS TO SPACE BACK 
SET UP R4 WITH PACKET ADDRESS 
: ISSUE COMMAND 


NEED DELAY 

sWAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 





sBR, IF OK 
“DELAY ABOUT .25 SECONDS 


MOV #250, (PC)+ 
- WORD 
MOV LSOLY,(PC)+ 
eWORD O 
DEC -6(PC) 
BNE 
DEC =-22(PC) 
BNE 720 
sLOOP R ROUTINE 
:LOOP BACK IF NOT —-. DELAY 
INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER 7. CE REV CMD. 
CSERHRD 
TUORD 131 
eWORD 129SDG 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XST3 
SET UP EXPECTED 
:RIB SHOULD BE SET 
31S RIB SET 
IF RIB WAS SET (GOOD) 
INC AND CHECK FOR MORE THAN 25 ERRORS 
* TMK NOT SET AFTER READ REV 
TRAP CSERHRD 
.WORD 132 
WORD T29RI6 
WORD EXPREC 
sLOOP IF SELECTED 
ae 


SEQ ae 


— eel 


; 
ee ee ee 





CZTUZAO TUBO FRONT END PRT D 
TEST 1: WRITE TAPE MARK RETRY 


4442 026320 
026320 

4443 026322 
026322 
026322 104403 

444% 

4445 

4446 


104406 


4447 

4448 026324 004737 017344 
4449 026330 103002 

4450 026532 000137 023674 


4451 026336 
026336 104432 
026340 003754 
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330$: 


103$: 





CKLOOP 
ENDSUB 


PC, TSTLOOP 
163$ 


T29L00P 
TST 





sLOOP iF SELECTED 
AP CSCiP’ 
3 <€<€46€<<< END SUBTEST >>>>>>>>>>> 
“TRAP = CSESUB 


:D0 WE “—_ TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
SEMECUTE AGAIN 
sALL DONE THIS TEST 
TRAP = IT 
WORD 110036-. 


SEQ 119° 


—en te 


-- —_- 


~—- ~~ oe 





CZTUZAO TU8O FRONT END PRT D 
TEST %: WRITE TAPE MARK RETRY 


4457 026342 
4459 026350 


350 014004 


4460 0 
4461 026352 
4462 026354 





A493) 

4492 026510 
4493 026510 
4496 reat 


4495 026512 
4496 026514 
4497 


4510 026540 





026360 
000000 
000012 
026370 
000000 
G00024 
000000 


D 10 
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+ 
sLOCAL STORAGE FOR THIS TEST 


-BL 
T29PACKET : 
T29DATA: 


T29BFR: 


1f}< .-TUVZAB7> 


14004 
.WORD T29DATA 
WORD 0 

WORD 10. 


WORD T29BFR 
WORD 0 

20. 

0 


-BLKW 2S. 


WRITE SUBSYSTEM MEMORY COMMAND PACKET 


T29PK2: 





w 
& 


10-<.-TUV2A87> 





100006 
oe 


6. 
10-<.-TUV2AE7> 
140005 


29880: .BYTE 10 






T29WDR: 
T29CON: 











oEVEN 
sTAPE MOTION PACKET COMMAND VALUES 
T29RN: .WORD 140001 


SL LL LLL LLL LLL LLL 


COMMAND PACKET FOR TEST 
SWRITE CHARACTERIST 
SADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
CHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


WRITE SUB SYS MEM COMMAND, AND A 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


SEQ 20. 


ICS COMMAND, WITH CvC=1, ACK 


sWKITE TAPE MARK RETRY COMMAND, CVC=1 AND ACK 


sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 


sDATA AREA 


sREAD DATA 
3READ DATA REVERSE 
sREAD PREVIOUS OPP=0 
READ PREVIOUS OPP=1 
SWRITE TAPE MARK RETRY NEXT OPP=0 


SWRITE TAPE MARK RETRY NEXT OPP=1 
END OF DATA 


3TAPE RECORD COUNTER STORAGE AREA 
D STORAGE SIZE AREA 


. :RECOR 
: .WORD DELAY COUNTER STORAGE AREA 


a 


een CL LLC 
E 10 
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TEST 1: WRITE TAPE MARK RETRY 


















4512 
4515 3+ 
teas sLOCAL TEXT MESSAGES FOR TEST 
4516 
4517 
4518 026542 194 162 151 T290FL: .ASCIZ ‘Drive is OFFLINE‘ 
4519 02656 124 141 160 T : .ASCIZ ‘Tape Position preocrest After WRITE TAPE MARK RETRY Previous (OPP=1)° 
02667 127 122 111 T29NEF: .ASCIZ ‘WRITE TAPE MARK RETRY, At BOT, Failed To Set NEF (xSTO)* 
4521 026760 126 123 123 T29RDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
4522 027027 127 122 111 T2QRRF: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Space Reverse, Read Forward) Command Failed 
4523 027143 127 122 111 T29RRG: .ASCIZ ‘WRITE TAPE MARK RETRY Previous (Read Forward, Space Reverse) Command Fziled 
4524 027257 120 117 123 T29SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
§ 027341 122 111 102 T29LOR: .ASCIZ ‘RIB NOT SET PAFTER READ REVERSE INTO BOT’ 
4526 627411 124 123 123 T29WDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
4527 027466 111 154 154 T29L00: .ASCIZ ‘Illegal Mode Bits. F fettes To —. ns ‘Bit In x$T0° 
4528 027 127 122 111 T29SSR: .ASCIZ ‘WRITE TAPE MARK RETRY COMMAND No epted’ 
reat 027622 124 123 123 =«*T E: .ASCIZ ‘TSSR Not Correct After SPACE REVERSE. DATA Command’ 
4531 027704 124 123 123 : -ASCIZ ‘TSSR as Correct After WRITE Command’ 
4532 027751 124 141 160 : -ASCIZ ‘Tape Not At BOT After — Command’ 
4533 030016 104 141 164 : -ASCIZ Data iritten To a ae ore Ss qual To Data Read From Tape’ 
4534 030104 127 122 111 T29EOT: .ASCIZ ‘WRITE TAPE MARK RY +4 wOVER EOT GAVE NO TAPE STATUS ALERT’ 
4535 030202 124 123 123 ASCIZ ‘TSSR Not Correct After SPACE REVERSE Into BOT’ 
030260 122 145 167 : -ASCIZ ‘Rewind (POSITION) Command Not Accepted’ 
4537 030327 122 101 115 > .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ran‘ 
4538 030402 124 123 123 : .ASCIZ ‘TSSR Init. Failed After WHITE TAPE MARK RETRY COMMAND‘ 
4539 030470 124 123 123 T29WDD: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK RETRY DATA Command, SWB Bit Set" 
030577 124 123 123 T29WDC: .ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK = DATA Command’ 
4541 030671 103 126 103 : eASCIZ “Cyc Set, Didn’*t Reset VCK In a 
4542 030744 124 123 102 eASCIZ ‘TSBA Wot Correct After WRITE yt RETRY DATA Command’ 
4543 031036 127 122 111 : .ASCIZ “WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)* 
4544 031125 122 145 141 : .ASCIZ “Reading Long Record Failed To Set *aLL Bit In xsTo° 
4545 031207 122 145 141 : ASCIZ ‘Reading L Record Failed To Set RLS Bit In xXSTO° 
4546 031271 122 145 163 eASCIZ a ny Rs e Count Incorrect After Short Record Read’ 
4547 031357 122 145 141 : -ASCIZ sige AS Record failed To Give Tape Status Alerc’ 
4548 031445 104 141 164 : .ASCIZ ‘Date ITE TAPE MARK RETRY From Tape Not Correct. After Swe-1° 
4549 031543 124 123 123° : -ASCIZ ‘TSSR Incorrect ot Atees READ REVERSE Into Tape 4 a 
4550 031624 124 123 123 : .ASCIZ “ISSR Incorrect After SPACE REVERSE Into tore 
4551 031706 127 122 111 T2QRIB: .ASCIZ ‘WRITE TAPE MARK RETRY At First Record, Failed ty - RIB (xST3)° 
52 032006 124 115 113 s .ASCIZ ‘TAK (XSTO) Failed To Set After READ REVERSE Into Tape Mark’ 
4553 032101 127 162 151 TST291D: ASCIZ ‘Write Tape Mark Retry‘ 
4554 EVEN 
HE ‘ 
4557 “ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
4558 3WRITE SUBSYSTEM MEMORY COMMAND 
4559 
4560 3° 
4561 
4562 032130 T29REST: 
+32 Orsi3e 012701 026350 ~ #T29PACKET RI aS ANRT OF Tee ACRET 
4565 032140 012721 140004 MOV #14 (RI) + WRITE SUBSYSTEM MEM. WITH ACK, CVC=1 
012721 026360 MOV #T29DATA, (RI) ADDR ESS OF CHARAISTICS DATA BLOCK 








—_——— - 


005021 SEXTENDED ADDRESS 
012721 #0. as 


' 
ee ene 
TT A A A EOL 


CZTUZAO TUS8O FRONT END PRT D 


TEST 
4569 032156 
4570 032162 


oie7et 





1: WRITE TAPE MARK RETRY 


026370 


af 


177777 


026370 64S: 


T29RT2: 


T29RTS: 





F 10 
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alae 
a 
0 a 


#24. 
se otTe  T20BFR(R2) 
=(R2) 


R2,8#0 
64$ 
PC 






#T29PK2,R1 
#140006, (R1)+¢ 
ane (R1)¢ 
ae eR. 
CR1)¢ 

@T29BF 2.R1 
(R1)¢ 

(R1) 

PC 


tag 


ee — 


sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


; SELECT ey! iste (0) 
;NUMBER OF LOCATIONS TO BE CLEARED 
SAGE BUFFER 





sCHECK FOR END OF LOOP 
sKEEP GOING UNTIL DONE 
ETURN 





oo THE REGISTERS 
sSTART OF THE 


PACKET 
SWRITE SUBSYSTEM MEM. WITH ACK.CVC=1, 
ADDRESS OF DATA BLOCK 


sEXTENDED ADDRESS 
:SIZE OF DATA BLOCK IN BYTES 
POINT TO DATA SEL AREA 














sRETURN 

sSAVE THE REGISTERS 
sSTART OF THE PACKET 
[WRITE SUBSYSTEM MEM. W 


WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 
sSIZE OF “DATA BLOCK IN BYTES 
RETURN 
L10036: 
TRAP CSETST 


SEQ 122 


A A 


———— ee 


en ene ae ee _ 
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TEST 2: SKIP TAPE MARKS 

‘st . SSIYL TEST 2: SKIP TAPE MARKS 
4608 “THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
4609 “FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
4610 SUNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
4611 *STOP (ESS) ND ENABLE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 
4612 “BY THE WRITE LNARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
4613 “FOLLOWING SUBTESTS (FOR EACH SUBTEST. THE TAPE IS FIRST WRITTEN 
4614 “WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 
4615 SAND/OR DOUBLE TAPE MARKS. 
i : 
4618 “THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 
4620 v3 
4621 ; 
4623 032316 ‘ BGN) sT ™ 
4624 032316 005037 002170 CLR FATELG SCLEAR FATAL ERROR FLAG 
4625 032322 005037 003100 CLR FLG sHOLD OFF KT11 

326 012737 005672 002146 MOV SEPRT .EPRTSU PRIMARY ERROR MESSAGE 
4631 032334 012700 041111 MOV ss #TST30ID,RO “ASCII MESSAGE TO IDENTIFY TEST 
4632 032340 004737 017376 JSR +h TSTSETUP *DO INITIAL TEST SETUP 
4635 032344 012737 000001 002166 MOV —s«#1.. LOOPCNT “PERFORM 1 ITERATIONS 


TEST 2, SUBTEST 1 
















sVERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAND WITH 
As FIRST REUOUND COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 


RATE 
REWOUND, THEN WRITTEN WITH SEVERAL FILES": 
SEACH ait A WUMBER OF DATA RECORDS 








sTHE FIL 

VERIFIED BY yt 
SREWOUND AND A SERIES OF SKIP 1 
sCOMMANDS ARE ISSUE 





ISSUED TO 





THE AND ON BITS. ALL 
COMBINATIONS OF ESS AND ENB ARE USED (00.01.10. 
311); OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
STHIS SUBTEST. 





4662 932352 " BGNSUB 2>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


032352 : 
ate 104402 y. CSBSUB 











CZTUZAO TUBO FRONT END PRT D 


TEST 2: 
4663 032554 


004737 


004757 04 
012737 
2 004757 01 


406 103426 
410 012727 








SKIP TAPE MARKS 


360 005037 036554 
004737 


177756 
036536 
020070 


036550 


7 010522 


020070 


010424 
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0365356 






















JSR PC, T3OREST T COMMAND PACKET 

CLR T3OFCN 

JSR eC. T3ORT2 

JSR pe .T3ORT UP OT 

MOV #6500. , TSODLY + SET UP DELAY COUNTER 

10$: JSR PC, SOF INIT 300 IN NITIALIZE ON CONTROLLER 

acs 208 “BR IF INIT OK 

DELAY 250 SDELAY ROUTINE CALL 
#250, (PC)« 
LSOLY,(PC)+ 
=6(PC) 
74 
-22(PC) 

BNE -* 

DEC T3ODLY : OUNTER 

BNE 108 : 

JSR PC ,FATCHK HAN 25 ERRORS 

ERRDF ERRNO, SFIERR,SFIMSG “FATAL ERROR TSSR WAS NOT OK 

T CSERDF 
201 
SFIERR 
SF IMSG 
208: 
MOV #TSOPACKET R4& sSUBROUTINE NEEDS PACKET ADDRESS 


SSRRARAHKTAAKAKAASAAASKAATSAHSHSAAAAAAAKEARAAHSAARAEAAAAKATAAAS 


SISSUE WRITE CHARACTERISTICS COMMAND 


SSASASARAAAAASESSASSSAASASAAAASAAAAAARERAEARAAAAARAAAAAAAAAA 





PC ,URTCHR 3 ISSUE WRITE CHARACTERISTICS 
:BR, IF COMMAND ISSUE 
PC ,FATCHK NC AND CHECK FOR MORE THAN 25 ERRORS 






re | 

3SAVE CONTENTS OF TSSR 

“WRITE CHARACTERISTISC > 
"GORD 





ERRNO, ,WRIMSG, SF IMSG 





CSERHRD 
202 





URTASG 
SF IMSG 


CSCLP1 





238: 


CKLOOP 


sLOOP IF SELECTED 
TRAP 


seeeeentecerecerereeeeeeseereteteneeaenaneeeennengaenenees 


ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


® 
seeeenereeererererereerereererertestenenarerennensenesenes 





JSR «PC, REWIND sCALL TAPE REWIND COMMAND 
§ 308 :BR PROBLEM 
MOV RO Ro = “GET PACKET ADDRESS 


Jt 





SEG 124 


TEST 2: 


CZTUZAO TUSO FRONT END PRT D 
MARKS 


4709 + 
4713 Oaseee 


0 
544 011670 


SKIP TAPE 


004737 


546 104406 





4765 
4764 032712 


020070 


036376 
000002 


020070 


104406 
000001 


3 00000 
? 003072 
003720 


0 
012737 
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036534 


036502 
036506 


036500 


JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSORWN,PKTSSR SREWIND NOT ACCEPTED 
al 
20 
TSORWN 
PKTSSR 
30S: CKLOOP sLOOP IF SELECTED 
CSCLP1 





“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


* 
° 
SRAAHHAAAKEARAHESAAKAASAAAESSAHAAETHAAAAAKAHAAETAAAAAEAAES 
























mov - T3OBFR+6,R1 PICK UP XSTO 
mOVséRI, [SET UP EXPECTED 
BIS  #BiTi,R2 SET BOT BIT IN EXPECTED 
CMP sé “DOES EXP = REC'D 
BEQtié‘G SBR, IF EQUAL (OK) 
JSR —s- PC, FATCHK INC AMD CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSOBOT ,EXPREC {TAPE NOT AT BOT AFTER REWIND 
CSERHRO 
“WORD 130801 
EXPREC 
40$:  CKLOOP sLUOP IF SELECTED 
RAP —- CSCLP1 
mov ss #1... TOF CN ;SET FILE" COUNTER AT 1 DECIMAL 
663: MOV 1k “ONE RECORD PER "FILE" 
65$: OV ree T30UB “SET UP PACKETS’S WRITE BUFFER 
mov #2000. , T3082 °SET RECORD SIZE AT 2000 BYTES 


{WRITE DATA.ACK,CVC=1 COMMAND 


Se SASHAAARSHEARASHSARAKSKSEKRAESAHAKAAAAAAAAAARAASAAKAeKSAAeeees 



















ROY #140005 , TSOPKS os yg ye CORMAND 

ROV STSOPKS RS sSET r R4 WITH PACKET ADDRESS 

MOY 30F CN sGET FILE COUNTER 

Sdea . os TO UPPER BYTE 

aOv sGET RECORD COUNTER 

ADD RZ OR sFILE COUNTER IN UPPER, RECORD # LOW 

MOV R1 .@FREE sMOV TO OUT PUT BUFFER 

ROY r4, TSDB(RS) s ISSUE 

JSR *u sWAIT SET 

aOY TSSRCRS) RI : 

MOY @SSR,R2 : 

CMP 1,R2 ; 

BEQ 708 : 

JSR PC, FATCHK ; HECK FOR MORE THAN 25 ERRORS 
; DON'T CARE ABOUT WRITE 
3 SULTS = CHECKING SKIP 
; CABARD 

RES ' T RRN 0,7 yw Ve HY ‘ ' DAIA 


SEQ 125 





033074 
4813 033076 


CZTUZAO TUBO FRONT END PRT D 
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020070 


JSR PC .FATCHK 
ERRHRD ERRNO, TSOWDC ,PKTSSR 


165$: _ CKLOOF 





























TEST 2: SKIP TAPE MARKS 
032712 104457 
032714 000315 ell 
032716 037050 T3OWDD 
032720 011670 PKTSSR 
4765 032722 70$:  CKLOOP sLOOP IF SELECTED 
4766 oasyse 005208 INC R3 COUNT THE RECORD COUNTER DOW mei 
4767 032726 020327 000021 CMP n3,021 SAT 20 YET 
4768 032732 001331 BNE 65$ “BR, IF NOT AT 20 RECORDS WRITTEN 
rib SRRHAHAAAAAAAAHAAAAAATS HATES AAA AAHEKAAAHAAAEAHEAAEAAETS 
4772 “WRITE TAPE MARK,ACK,CVC=1 COMMAND 
pi ITI 
776 032734 012737 141011 036500 mov —s-« #141011, 130K: WRITE TAPE MARK,ACK,CVC=1 COMMAND 
4777 032742 012704 036500 MOV —sd# TSOPK3.R “SET UP R4 WITH PACKET ADDRESS 
032746 010465 177776 mov sé, TSDB ARS) SISSUE COMMAND 
4779 032752 004737 017110 JSR «PC WALT “WAIT FOR SSR TO SET 
032756 016501 000000 MOV TSSR(RS) RI SPICK UP TSSR 
4781 032762 012702 000200 MOV —s-s«@#SSRR2 °SET UP EXPECTED (SSR ONLY) 
4782 032766 102 CMP 1,R2 “WAS STATUS GOOD 
4783 032770 001406 BEO 160$ “BR, IF TERMINATION WAS GOOD 
784 032772 737 020070 JSR «PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
4788 032776 ERRHRD ERRNO, TSOWDC,PKTSSR “TSSR NOT CORRECT AFTER WRT TAPE Mf 
032776 TRAP CSE 
033000 .WORD 206 
033002 “WORD  T3O0WDC 
033004 PKTSSR 
4789 033006 160$:  CKLOOP SLOOP IF SELECTED 
033006 1 RAP  CSCLP1 
4790 033010 005237 036534 INC T3OFCN COUNT THE TILE” COUNTER DOWN 
4791 033014 023727 036534 000006 T30F CN, #6 “WRITE 5 FILE TO TAPE 
648 “BR, IF NOT AT : FILES WRITTEN 
SRRRAHAAAeeAA AAA eeAAeHTAAASAKESTATATAAAALARAAATAAAALE ALANS 
“WRITE TAPE MARK,ACK,CVC=1 COMMAND 
+ eeeerenereareeeerereeneereeereerenraereneeneereneneteete 
141011 036500 #141011, T30PK3 WRITE TAPE MARK.ACK,CVC=1 COMMAND 
036500 at "Ra “SET UP RG WITH PACKET ADDRESS 
177776 RG, TSDBCRS) S ISSUE COMMAND 
7 017110 PC.WAITE “WAIT FOR SSR TO SET 
000000 TSSRCRS) RI SPICK UP TSSR 
000200 @SSR,R2 SET UP EXPECTED (SSR ONLY) 
CAP sé WAS STATUS GOOD 
BEO 165$ BR, IF TERMINATION WAS 


GOOD 
sINC AND CHECK FOR MORE THAN 25 — 
;TSSR NOT CORRECT AFTER gaia - 


CSERHRD 
-WORD 207 
-WORD TS50WDC 


WORD PKTSSR 


SEQ 126. 


ee LL LLL LE LA 
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033076 104406 


SEQ 127 


TRAP CSCLP1 











1 033172 





004737 
103411 
010004 


33110 016501 


004737 
104456 

320 
040120 
011670 
104406 


013701 
010102 
052702 
020102 
001 

004737 
104456 
0003521 
037721 
016534 
104406 
012705 
011337 
012704 


010424 


000000 
020070 


036376 
000002 


020070 


036516 


036366 
036350 


010322 


7 020070 


seeeteereeeenueeeeecereresseredenieenseenaseeeeaaererenees 


*ISSUE A REWIND TO 1APE DRIVE AND WAIT FOR SSR TO SET 


° 
SRERAAAAAAAAREASAAAAAAHEEAAAALE. CHRAAAAAAAARARAAREREAALATE 


JSR PC, REWIND sCALL TAPE REWIND COMMAND 
170$ PROBLEM 





BCS 
MOV RO,R4 
MOV TSSRCRS) RI 
JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSORWN,PKTSSR ;REWIND NOT ACCEPTED 
«WORD 
- WORD 
~ WORD 





170$: CKLOOP sLOOP IF SELECTED 


TRAP 


SRAAAAAAEAAARAAAAAAAAAAAATAHAEAEAAAAAAAAAEAAAAAAAAAAAAAESS 


[GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


2 
SRAAAAAAAAAAAAAHASAAHAAAAAAASEAAAEAAAAAERAHARAAEEREEREEEES 























CSERHRD 
208 





T3ORWN 
PKTSSR 
CSCLP1 


mov —« T3OBFR+6,R1 sPICK UP XSTO 
MOV —s-«R1 RZ SET UP EXPECTED 
BIS  #BIT1,R2 “SET BOT BIT IN EXPECTED 
CMP sR, R2- [DOES EXP = REC'D 
BEQ 1808 BR, IF EQUAL (OK) 
JSR  —s PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSOBOT, EXPREC “TAPE NOT AT BOT AFTER REWIND 
CSERHRD 
"WORD 
: T30B0T 
“WORD EXPREC 
180$:  CKLOOP SLOOP IF SELECTED 
APs CSCLP1 
mov ss #TOIMV.RS :SET UP POINTER TO COMMAND TABLE 
182$: MOV (R3), TOETM GET NEXT COMMAND 
MOV —s- @T3OPACKET,R4 “SUBROUTINE NEEDS PACKET ADDRESS 


seearereearereseteneeereseeetererenerenananagaanaeanenens 


ISSUE WRITE CHARACTERISTICS COMMAND 


s 
saeeereeeererrenereerereereetreteteneennarenraenaeneenenes 


JSR PC .WRICHR sISSUE WRITE CHARACTERISTICS 
BCs 188$ SBR, IF COMMAND 
PC, FATCHK 


"OV « 
ERRHRD ERRNO, WRIASG,SFIMSG 









:INC AND CHECK 
SAVE CONTENTS OF 





TSSR 
SWRITE CHARACTERISTISC ‘ory 


FOR MORE THAN 25 ERRORS 


TEST 2: 


000322 


104406 


012737 
012737 
ps ee 


01046 
012737 
004737 


3266 016501 


032701 
001017 


012727 


56 036774 








4907 033376 
4908 


011670 
104406 


013701 


370 010102 
4906 033372 052 


702 
020102 
001406 
004757 


CZTUZAO TU8O FRONT END PRT D 
SKIP TAPE MARKS 


033226 
2 004754 
4 011656 


141010 
000001 


000250 
002116 
177772 
177756 
036536 
000200 


020070 


036376 
100000 


020070 


036500 
036502 


6 
036536 
0 


188$: 


CKLOOP 
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WORD WRIASG 

«WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRAAAEAAAAAAARAAEAHAAAAAETHAAETERAAAAAAAHAAAAAAAAEHAEAAEES 


“SKIP TAPE MARK,ACK,CVC=1 COMMAND 


4 
SRAAAAAAAAAAAHAEATAAHAAERAAAEHAAAAATARAEAAAAAERAAAAEAAAAES 


189$: 
190$: 


191$: 


192$: 


DEC 
BNE 





JSR PC .FATCHK 
ERRHRD ERRNO, TSOSKM,PKTSSR 


CKLOOP 


#141010, TSOPK3 
#1, T3OR 


PCW 
TSSRCR5S) RI 
#Ss 


250 


T3ODLY 
1908 
#SSR.R2 
R1R2 


sSKIP TAPE MARK,ACK,CVC=1 COMMAND 
:SET UP R TO SK 
SET UP R4 WITH PACKET ADDRESS 
s ISSUE COMMAND 
SET . DELAY COUNTER 
IT FOR SSR 19 SET 











T 
sBR, IF SSR IS SET 
SCALL DELAY ROUTINE 


MOV #250, (PC)+ 
WORD 0 

*mOV LSOLY,(PC)+ 
- WORD 

DEC -6(PC) 

BNE 


074 
DEC -22(PC) 


sBUMP DELAY ROUTINE 

BR, IF MORE DELAY TO GO 

SET UP EXPECTED (SSR ONLY) 
WAS STATUS GOOD 

BR, IF TERMINATION WAS — 

sINC AND CHECK FOR MORE THAN 25 ERRORS 

;TSSR NOT CORRECT AFTER SKIP TAPE i. 

TRAP CSER 









1 
T3OSKM 
PKTSSR 


sLOOP IF SELECTED 
CSCLP1 





seeeenerterereererereerecererearenanteneaetaararaagaeeeees 


[GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


° 
seeeneregaeeereeerarerereeterererereaneneneneneneegngaeres 


id 


TSOBFR*6,R1 
R1,R 
+> ight il 


19 
PC ,FATCHK 
RRNG, 1507 


sPICK UP XSTO 

sSET UP EXPECTED 

T TAK a" IN EXPECTED 
:DOES or at REC*D 


OK) 
SING AND CHECK FOR MORE THAN 25 ERRORS 


-_————~ —— - see 


SEQ 126 


i 
ee = ae 


TEST 2: 


033414 

4914 033416 
3416 

4915 033420 


4916 033426 
7 033430 


4 

4925 033436 
4926 033444 
4927 033450 
4928 033456 
929 033462 









4930 033466 
4931 033472 
4932 035476 
4933 033500 
4934 033502 
4938 033506 


104456 


012737 
0 


033510 000525 
pa 037275 





03351 
4939 oearte 


CZTUZAO TU8O FRONT END PRT D 
SKIP TAPE MARKS 


177777 


7 020362 


005072 
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195$: 


036502 


CKLOOP 


MOV 
JSR 
MOV 


#177777 RO 
PC, FILLMEM 
FREE, TSORB 





sLOOP IF SELECTED 


sVALUE TO og TO MEMORY 
sFILL MEM WITH ALL ONES 
STARTING READ BUFFER ADDRESS 





CSCLP1 





SRAAAARAAAAAAAAAAAAAAAAAAAEAATAEHAAAAAAAHAAAAAKARAAAEREAES 


READ FORWARD,ACK,CVC=1 COMMAND 


@ 
° 
SRARAAAAARARAAAAKETEAAEEAAERAAEAAAAAAAAAAAAAAAAEEAEAAEEAGAES 


ese st 036500 
003720 036506 
177776 


7 017110 
000000 


000200 


020070 


147346 
177777 


020070 


04406 
001001 


147310 


020070 


220S: 


2288: 











JSR 
ERRHRD 


CKLOOP 


oreo a 


#2000.,1 130s 
R4, TSDB(R5S) 


PC WAITE 
TSSR(RS) RI 
#SSR,R2 
200$ 


PC FAT 
ERRNO. TSORDE, PKTSSR 





@FREE RI 
#177777 .R2 
R1,R2 


é 
PC FATCHK 
ERRNO, TSODTR, EXPREC 


#1001 ,R2 
@FREE ,R1 
R2,R1 


& 
PC FAT 
ERRNO, T30PTB, EXPREC 





sREAD FORWARD ,ACK,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 
OMMAND 


WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
sSET UP EXPECTED 

E THEY EQUAL 














SINC AND CHECK FOR MORE THAN 25 ERRORS 
“TSSR INCORRECT AFTER waite TE DATA 










sLOOP IF SELECTED 
sFIRST LOC IN READ BUF 


7 INC CHECK 
DATA TRANSFERRED ON i “vee 





CSERHRD 
-WORD 214 
-WORD TSODTR 
WORD EXPREC 


sLOOP IF SELECTED 


CSCLP 
:SET UP RECORD NUMBER EXPECTED (FILE 2) 
GET INFO FROM BUFFER 
ARE THEY EQUAL 


sBR, IF EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
sRECORD POSITION WAS oe ‘ 


~ WORD 
- WORD 
sLOOP IF SELECTED 


SEQ 129° 


ee ooo 


N 10 





SEQ 130. 
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4960 
rest SRAAAAAAAAAAARAAAEAAAEAAAATTAAATAAAAAAAAAAAAERARTARAH ATES 
4 : 
4965 “ISSUE A REWIND T9 TAPE DRIVE AND WAIT FOR SSR TO SET 
pe ‘Reeteeeeeeeeeeeneeeeerrereenreteneeatenneneanteneeennnees 
4 
4967 03 004737 010424 JSR PC,REWIND sCALL TAPE REWIND COMMAND 
4968 033610 103411 BCS 230$ :BR, 
4969 033612 010004 MOV RO,R4 “SAVE PACKET ADDRESS 
4970 033614 016501 000000 TSSR(RS) RI “GET TSSR STATUS 
4971 033620 004737 020070 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
4975 033624 ERRHRD ERRNO, TSORWN,PKTSSR “REWIND NOT ACCEPTED 
033624 104456 TRAP § CSERHRD 
033626 000330 .WORD 216 
033630 040120 WORD 
033632 011670 “WORD PKTSSR 
4976 033634 2303:  CKLOOP sLOOP IF SELECTED 
“is 033634 104406 RAP —- CSCLP1 
4978 SRRAAAAAAAAARERAAAAAAAAELETAAEEEEAAEEEREREEEEEAEEERERENERS 
4979 : 
4980 [GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
4982 [eeeeereneneenteereeerereneereetrenteneteenenneeeneeneeees 
4983 
033636 013701 036376 MoV T3OBFR+6,R1 sPaCK UP XSTO 
4985 033642 010102 MOV R1,R sSET UP EXPECTED 
03 052702 000002 BIS #B1T1,R2 *SET BOT BIT IN EXPECTED 
4987 033650 020102 CMP R1,R2 “DOES EXP = REC'D 
4988 033652 0014 BEQ 240$ *BR, IF EQUAL (OK) 
033654 004737 020070 JSR PC, FAT “INC AND CHECK FOR MORE THAN 25 ERRORS 
4993 033660 ERRHRD ERRNO, TS0B0T  EXPREC “TAPE NOT AT BOT AFTER REWIND 
033660 104456 CSERHRD 
033662 331 WORD 217 
033664 037721 "WORD T7?9B0T 
033666 016334 "WORD EXPREC 
4994 033670 240$:  CKLOOP sLOOP IF SELECTED 
033670 104406 TRAP  CSCLP1 
4995 033672 005723 1ST (R3)+ sPOINT TO NEXT POSITION 
033674 011301 MOV (R3),R1 °GET NEXT COMMAND ETC. 
4997 033676 020127 177777 CMP R1 #177777 “END OF TABLE MARKER 
4998 033702 001402 BEQ 330$ “BR, IF AT END OF TABLE 
4999 033704 137. 033172 JMP 182$ JUMP TO MORE COMMANDS TO DO 
5000 033710 330$:  CKLOOP “LOOP IF SELECTED 
033 104406 CSCLP1 
5001 Ores ENDSUB 8 €<<€€6€64<< END oh ag >>>>>>>>>>> 
033712 104403 TRAP CSESUB 


EE —— an 
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TEST 2: SKIP TAPE MARKS 

5003 3+ | 
5004 ; 
5005 STEST 2, SUBTEST 2 | 
5007 ; VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE | 
5008 :MARK COUNT GREAT ER THAN 1 OPERATE PROPERLY. COUNTS 
5009 2,3,8,64,256, AND 512 ARE TESTED. 
5010 TESTING SEQUENCE is. SIMILAR TO THAT USED IN SUBTEST 1. 
$012 ; 
5013 : 
5014 i+ 
5015 
5016 petal BGNSUB 5>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 

033714 104402 TRAP  CSBSUB 
5017 033716 004737 041132 JSR PC, T3OREST sSET COMMAND PACKET 
5018 033722 005037 534 CLR T3OFCN i CLEAR FILE COUNTER 
5019 033726 004737 041226 JSR PC, T3ORT2 °SET UP OTHER COMMAND PACKET 
5020 033732 004737 041266 JSR PC, T3ORTS 3SET UP OT HER COMMAND PACKET 

1 033736 012737 176750 036536 MOV #65000. , T3ODLY 3SET UP DELAY COUNTER 

5022 033744 737 016634 10$: JSR PC, SOF INIT 00 INITIALIZE ON CONTROLLER 
5023 033750 103426 BCs 0$ 3BR IF INIT WAS OK 
5024 03375 DELAY 250 “DELAY ROUTINE CALL 

033752 012727 090250 #250, (PC)+ 

033756 000000 

033760 013727 002116 LSOLY,(PC)+ 

033764 

033766 005367 177772 -6(PC) 

033772 001375 <4 

033774 005367 177756 -22(PC) 

034000 001367 - 
5025 034002 005337 036536 DEC T3ODLY SBUMP COUNTER 
5026 034006 601356 BNE 10$ “BR, IF MORE COUNTING 10 po | 
5027 034010 737 020070 JSR PC FATCHK SINC AND CHECK FOR MORE T ERRORS 
5031 034014 010001 MoV —s-ROLR “CONTENTS OF TSSR REGISTER : 
5032 034016 ERRDF ERRNO, SFIERR,SFINSG “FATAL ERROR TSSR WAS NOT OK 

034016 104455 T CSERDF ! 

034020 000332 F 218 

034022 003550 ; SFIERR 

034024 011656 “WORD  SFIMSG 
$033 034026 208: : 
5085 034026 012704 036350 MOV OTSOPACKET RG sSUBROUTINE NEEDS PACKET ADDRESS | 
5037 seeeeereerenrereererereeeeeenereteneenaneetaneeeeranennee | 
5038 : 
5039 [ISSUE WRITE CHARACTERISTICS COMMAND | 
5041 + eeeereeerereenerenreerereereerecreneeeeeereeneenenrentert | 
5042 | 
5043 034032 004737 010322 JSR PC,WRTCHR sISSUE WRITE CHARACTERISTICS : 
$044 034036 103407 BCs BR, 1S | 
5045 034040 004737 020070 JSR Po FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS | 
5049 024044 010001 MOV “SAVE CONTENTS OF TSSR | 
5050 054046 ma ERRHRD ERRNO,WRTMSG, SFIMSG “WRITE CHARACTERISTISC FAILED | 





CZTUZAO TU8O FRONT END PRT D 


TEST 2: 


034050 
034052 


0 
5051 034056 
034056 


000335 
004754 
011656 
104406 


004737 
103411 


010004 
5062 016501 
5063 034074 004737 
5067 034 


34 104456 
Seater 000334 


040120 
34106 011670 
034110 104406 


013701 








012737 
012704 








SKIP TAPE MARKS 


010424 


000000 
020070 


036376 


00000 
003072 
000024 





eR 
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23$: CKLOOP 


eee ee ee ee 


WORD 219 

-WORD WRIMSG 

«WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRAAARAAAAAAAAEKAAAATAREHELETEAESEREAAHATAAAALA HAHAHA AAEe 


“ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


: 
FRAAAAAAAAAAKERAAAAAAAAAAAAATAKAETEHANAAAHTAAAAAAEHAAAAEAES 


JSR —« PC, REWIND 
308 


RO,R4 
MOV TSSRCRS) RI 


JSR PC ,FATCHK 
ERRHRD ERRNO, TSORWN,PKTSSR 


30S: CKLOOP 


sCALL TAPE REWIND COMMAND 
: F PROBLEM 


BR, E 
sGET PACKET ADDRESS 
iE STATUS REGISTER 





sINC AND CHECK FOR MORE THAN 25 ERRORS 
sREWIND NOT ACCEPTED 
CSERHRD 
220 
TSORWN 
PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 


SRAAAATARAAAAAAAASTLSASATHAAATAAAAAAAAATAAAASLARAAATAAAAAS 


“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


. 
SREAAAAAAASAARAESASTAAAASLALASAAATAAAARAARAKLEAASAHAAA TALES 








MOV T3OBFR+6,R1 
MOV Ri, 
81S #B1T1,R2 
CMP R1,R2 
BEQ & 
JSR PC .FATC 
ERRHRD ERAND, T30BOT -EXPREC 
40S: CKLOOP 
036534 MOV #1., T30FCN 
64S: MOV #1,R3 
036502 65$: MOV FREE ,130WB 
036506 MOY #20. ,1350SZ 





sPICK UP xSTO 

sSéT EXPECTED 

7SET BOT BIT IN EXPECTED 

sDOES EXP = REC’ A 

ry OR MORE THAN 25 

TAPE NOT AT BOT AFTER REWIND 
TRAP 

- WORD 

WORD 








sLOOP IF SELECTED 
3SET ‘FILE’ COUNTER AT 1 DECIMAL 
:ONE RECORD PER ‘FILE’ 


3SET UP PACKETS'S WRITE BUFFER 
:SET RECORD SIZE AT 2000 BYTES 





CSCLP1 


seeeeeaceneeeeceerecerereecereetereanerecereeneneaageerens 


WRITE DATA,ACK.CVC=1 COMMAND 


& 
6 
seeeeetererererecereereesereresreteagnaraenagneeeeneeenens 






#140005 , TS0PK3 
STSOPKS RS 





sWRITE DATA,ACK.CVC=1_ COMMAND 


SEQ 132 


ee —— — — ee EL LL 
— - -~-- - 
—_— — a —~- 
—~ - . ~ 


~~ om 
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CZTUZAO TUBO FRONT END PRT D SEQ 155 



































TES: 2: SKIP TAPE MARKS 
034206 013702 036534 MOV TSOFCN,R2 :GET FILE COUNTER 
5101 034212 00030 SWAB R2 MOVE TO UPPER BYTE 
5102 034214 010301 MOV +f R1 ;GET RECORD COUNTER 
5103 034216 201 ADD oR1 SFILE COUNTER IN UPPER, RECORD # LOW 
5 0342 010177 1446646 MOV Ri via REE MOV TO OUT PUT BUFFER 
5105 034224 0104665 177776 MOV R4, Mea : ISSUE COMMAND 
5 034230 006737 017110 JSR ;WAIT FOR SSR TO SET | 
$107 034234 016501 0600000 MOV TSERCRS) RY GET TSSR CONTENTS 
5 034240 012702 000200 MOV #SSR,R2 3SET UP EXPECTED 
5109 034244 020102 CMP RRO ZARE 1 | 
5110 034246 001406 BEG 7 F OK | 
$111 034250 004737 020070 JSR PC ,FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
5115 sSOFT ERROR, DON'T CARE ABOUT WRITE | 
5116 COMMAND ’S RESULTS = CHECKING SKIP 
$117 TAPE MARK COMMAND | 
5118 034254 ERRSOFT ERRNO, TSOWDD.PKTSSR TSSR INCORRECT AFTER WRITE DATA 
034254 104457 TRAP CSERSOFT | 
034256 000336 -WORD 222 
634260 037050 -WORD T3OWDD 
034 011670 PKTSSR 
5119 034264 708: CKLOOP sLOOP IF SELECTED 
034 104406 RAP CSCLP1 
5120 034 005203 INC R3 s COUNT THE RECORD COUNTER DOWN 
5121 0342 020327 000021 R3,#21 sAT 20 YET 
at 3 034274 001331 BNE 65$ BR, IF NOT AT 20 RECORDS WRITTEN 
5124 SRERAReee eee AAeKeLeAAAeKASAALeSHAASKAHATAKATHAAAAHAAKAAReTe 
$125 : 
a SWRITE TAPE MARK,ACK,CVC=1 COMMAND 
5128 + eeeeeneeneenerererecereneeeatnereenarenneneenenneneeeeees | 
5129 | 
5130 034276 012737 141011 036500 MOV #141011, T50PK3 WRITE TAPE MARK,ACK,CVC=1 COMMAND | 
5131 034304 012704 036500 MOV aT SET UP R4 WITH PACKET ADDRESS , 
$132 034310 010465 177776 MOV R4, TspB(RS) sISSUE COMMAND 
5133 034314 004737 017110 JSR PC WAIT WAIT FOR SSR TO SET 
5134 034320 016501 000000 MOV ISeReRS) RI sPICK UP TSSR | 
5135 034 012702 000200 MOV #SSR,R2 2SET UP EXPECTED (SSR ONLY) 
5136 034330 020102 CMP RT RO SWAS STATUS GOOD | 
5137 0343352 001406 BEQ 1 :BR, IF googly WAS | 
5138 034334 004737 020070 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS | 
5142 034340 ERRHRD ERRNO, TSOWDC .PKTSSR :TSSR NOT CORRECT AFTER uRT. TAPE &@. | 
034340 104456 TRAP CSERHRD | 
034342 000337 . 223 | 
034344 040242 WORD TSOWDC ) 
034346 011670 -WORD PKTSSR | 
5143 034350 160$: CKLOOP sLOOP IF SELECTED | 
1 i CSCLP1 | 
5144 034352 005237 036534 INC T3OFCN sCOUNT THE ‘‘FILE** COUNTER DOWN | 
5145 034356 023727 036534 000031 CMP TSOFCN, #25. ot 25 FILES TO TAPE 
pe 034364 001275 BNE 64% » IF NOT AT 25 FILES WRITTEN 
5148 aa echesieneapheanienlioens 
5149 : 
3130 WRITE TAPE MARK,ACK,CVC=1 COMMAND 
5152  eeeeeeerereeeeeeeeeererereeoererererarerengeeeeenereeenet 











CZTUZAO TUBO FRONT END PRT D 


TEST 2: 
5153 
5154 034366 
5155 034374 
5156 034400 


5157 034404 
5158 034410 
5159 034414 
5160 034420 
5161 034422 
5162 034424 
5166 Seeeee 


SKIP TAPE MARKS 
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141011 036500 
036500 


177776 
017110 
000000 


000200 


020070 


010424 


000000 
020070 


036376 
02 


702 000002 


737 020070 





5202 034526 


04406 
5203 034580 012737 








165$: 


CKLOOP 


#141011, T30PK3 WRITE TAPE MARK.ACK,CVC=1 COMMAND 
#T3OPK3.R4 :SET UP R& WITH PACKET ADDRE 
RA. TSOBCRS) C 
PC, wALTF :WALT FOR SSR TO SET 
TSSR(RS) RI PICK 
#SSR.R2 “SET UP EXPECTED (SSR ONLY) 

1,R2 “WAS STATUS GOOD 

§ BR, IF TERMIAT ION WAS GOOD 

SINC AND C FOR MORE THAN 25 ERRORS 


PC .FATCHK HECK 
ERRNO, TSOWDC ,PKTSSR STSSR NOT CORRECT AFTER WRT TAPE Mf 








TRAP CSE 

«WORD 226 

~WORD TSOWDC 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


SRAARASHAAAEREKTAAAALAAETAHAAAEAAAAAEAAAAAAEAAEEEAAARAREES 


[ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


* 
FRRAAHSRAAAAAAATAHAAATEAAAATHAAAAAAAALERAAEAATAAREAAAAAAES 


170$: 


JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 


CKLOOP 


PC REWIND CALL TAPE REWIND COMMAND 
1708 : F NO PROBLEM 

RO,R4 

TSSRCRS) RI 

PC FATCHK 


s INC AND CHECK FOR 
ERRNO, TSORWN,.PKTSSR sREWIND NOT ACCEPTED 


sLOOP IF SELECTED 





sReeeereeaearerereeeseeeeeeegeessaeeKeeeaeeeeenneeaseeerss 


“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


e 
saeeerereeeeerrereerrererererereereeseneegneeggenaeereness 


180$: 


000002 036534 








T3OBFR*6,R1 sPICK UP XSTO 
2 >SET UP EXPECTED 
#piti,r2 SET BOT But IN EXPECTED 
R1,R2 SDOES EXP = REC'D 
BR, IF EQUAL (OK) 
TCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRNO, TSOBOT ,EXPREC “TAPE NOT AT BOT AFTER REWIND hint 
TeORD 226 
"WORD T30B0T 
OOP IF SELECTED — 
st L 
TRAP CSCLP1 
#2, T50F CN . ) NUMBER 0 






A lle 








; 
’ 

——_—-— 
el —— ee ete ee —_ 


i 


CZTUZAO TU8O FRONT END PRT D 
TEST 2: SKIP TAPE MARKS 


5204 034536 012703 036516 
5205 


011337 036366 
012704 0363550 


737 0103522 
7 020070 





012737 
013737 036534 
036500 





141010 036500 
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MOV #TSOIMV,RS 


1828: MOV (R3) , TSOETM 
MOV aT SOPACKET RG 


;SET UP POINTER TO COMMAND TABLE 


sGET NEXT COMMAND 
;SUBROUTINE NEEDS PACKET ADDRESS 


SRARSKAAAAHAAAALHAATHSHKAKAAAASHAAAEAARAAAAAALEHALAHAAEEES 


*ISSUE WRITE CHARACTERISTICS COMMAND 


3 
SRHARAAAAEHAALAAAHAHAAAAEAATAAEREAAAEHEAAHAHRARAAHAE ATES 


JSR + WRTICHR 

JSR PC .FATCHK 

MOV ‘ 

ERRHRD ERRNO, WRIMSG, SF IMSG 


1883: CKLOOP 


: ISSUE WRITE CHARACTERISTICS 
OMMAND 


F 

SINC AND CHECK FOR MORE THAN 25 ERRORS 
:SAVE CONTENTS OF TSS 

[WRITE CHARACTERISTISC bony 











sLOOP IF SELECTED 





TRAP 


SRAKAAASRAAAAAAASLHAATE HEAT AA AAAAAAAAAAAEAAAATAAAATAAEEES 


SSKIP TAPE MARK,ACK,CVC=1 COMMAND 


8 
seAeeeaeaeaaeeeersseeseeceeeesesesenganengensesseeeeeasees 


#141010, TS0PK3 
T3OF CN, TSORB 






MOV 
MOV 
mov sd TSOPKS.R4 
189$: MOV R4, TSDBCRS) 
MOV #65000. . 
190$: JSR  PC,WAITF 
MOV TSSRRS) RI 
BIT #SSR,RI 
BNE 1918. 
DELAY 250 
DEC T3ODLY 
BNE 
191$: MOV  #SSR,R2 
CHP sé, RO 
BE 


SR PC ,FATCHK 
ERRHRD ERRNO, TSOSKM,PKTSSR 


SKIP TAPE MARK,ACK,CVC=1 COMMAND 

sSET UP R TO SKIP 

sSer UP R4& WITH PACKET ADDRESS 
COMMAND 

Y COUNTER 









CBR. IF SSR IS SET 
sCALL DELAY ROUTINE 


ROY #250, (PC)+ 
-WORD 

ROV LSOLY,(PC)+ 
- WORD 

DEC -6(PC) 

BNE 


4 
DEC ~22(PC) 
BNE -- 





s BURP DELAY ROUTINE 





sWAS STATUS GOOD 
sBR. IF TERMINATION WAS 
WAN 25 ERRORS 


INC CHECK FOR MORE T 
STSSR NOT CORRECT AFTER SKIP TAPE A. 
TRAP 3s CSE 













SEQ 135° 





i 
{ 
' 
; 
' 


— 





CZTUZAO TUSO FRONT END PRT D 
TEST 2: SKIP TAPE MARKS 


034730 011670 


5251 034732 
0347352 104406 


58 
5259 pote: 013701 036376 
100000 


020070 







177777 
7? 020362 
003072 








145776 
177777 


51 020070 
5305 pay 
035110 


036502 


036500 
036506 
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WORD PKTSSR 
192$:  CKLOOP LOOP IF SELECTED 
TRAP —- CSCLP1 

SRHRHAKAASAAAAAKEAAATAATAAAHAAAAAAAAAAAAHEAAAAAAEEREAEEAES 
“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE GUFFER 
SRARRAALARAHAEHAAAAAAAAARAAAAHA HEAL AAAAAEAAAESHAAAEAEES 

mov - T3OBFR+6,Rh1 sPICK UP XSTO 

MOV —s«aRIR2 SSET UP EXPECTED 

BIS § #BiT15,R2 SET TAK BIT IN EXPECTED 

CMP sé R2 [DOES EXP = REC'D 

BEQ0siéd1O9SS; ) 

JSR sé FOR MORE THAN 25 ERRORS 








ATCHK HECK 
ERRHRD ERRNO, TSOTMK ,EXPREC NOT SET AFTER WRT — 


CSERHRD 














































WORD 
"WORD  TSOTMK 
EXPREC 
195$:  CKLOOP sLOOP IF SELECTED cai 
mov =s«#177777..RO SVALUE TO WRITTEN TO neRORY 
JSR —s- PC FILLER “FILL MEM WITH ALL ONES 
mov —s-«d FREE, TSORB *STARTING READ BUFFER ADDRESS 
seteeeereerareeeeeresesererseesesageaasengagenssaaasaeseees 
;READ FORWARD, ACK,CVC=1 COMMAND 
+ eeeeneenernereeeeneeeeerenteneeteneenenneteneenentenesete 
MOV SREAD FORWARD. ACK.CVC=1 COMMAND 
nOV SET U? RG WITH PACKET ADDRESS 
MOV SET UP RECORD SIZE IN PACKET 
MOV ; ISSUE COMMAND 
JSR —s- PC WA SWAIT FOR SSR TO SET 
mov _—sTSSRCRS),RI 
MOV =-« #SSR, RZ 
CMP 1,R2 
BEQ 40s«2008 
JSR —s PC, FATCHK CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, TSORDE ,PKTSSR ORRECT AFTER WRITE TE DATA, 
230 
: T3OROF 
2008 OOP IF SELECTED on een 
ong aFREE,R1 poll LOC IN READ eure —_ 
ROV R 
nov a Tot RZ A TRANS. 
BNE TRANS (GO00D 
JSR «PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERR ERRORS 
ERRHRD ERRNO, TSODTR, EXPREC DATA TRANSFERRED ON READ TAPE MARK 





SEQ 136. 


CZTUZAO TUSO FRONT END PRT D 
TEST 2: SKIP TAPE MARKS 


035112 000347 


035114 040750 
035116 016334 


104406 
5305 035122 013702 036554 
306 005202 





000001 
5309 035136 145730 
5310 035142 020201 
5311 035144 
5312 035146 020070 
5316 035152 
035152 
035154 000350 
035156 
035160 
5317 035162 
035162 
010424 





036376 





020070 


5240 1 
0163 
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2208: CKLOOP sLOOP IF SELECTED 






MOV TSOFCN,R2 
INC R2 
SWAB R2 
BIS #B1T0,R2 
MOV @FREE ,R1 
CMP a 
BEQ 

PC 


JSR oFATCHK 
ERRHRD ERRNO, TSOPTBEXPREC 


GET NUMBER OF SKIPS 
sSET TO CORRECT FILE VALUE 
;SWAP BYTE HALVES 


(OK) 
FOR MORE THAN Fees 
CSERHRD 
32 





: INC HECK 
RECORD POSITION WAS oo 








«WORD 2 
WORD T30PTB 
-WORD EXPREC 
228$:  CKLOOP sLOOP IF SELECTED 
TRAP CSCLPI 


SISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


@ 
SAAAHAHAAAAATASHAASAAAAAALAAH AAAS AAAHAHAASAAAAAAAAATASS 







JSR —s- PC, REWIND SCALL TAPE REWIND COMMAND 
BCs 2308, : F NO PROBLE 
mov —s«ROLR 
MOV TaSRcns nt US 
PC, F Ck FOR MORE THAN 25 ERRORS 


JSR INC AND CHECK 
ERRHRD ERRNO, TSORUN,PKTSSR SREWIND NOT ACCEPTED 





TRAP CSERHRD 
-WORD 233 


WORD 
- WORD 
TRAP 





2350S: CKLOOP sLOOP IF SELECTED 





seecerereaearecrereeneeeseeeseecenaaaneeangenaneesesenanes 


“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 


é 
seeeeeeenareceecerereereereertesenenageneenagagenenegeenes 















MOV T3OBFR+6,R1 sPICK UP XSTO 

MOV R1,R 3SET UP EXPECTED 

BIS #B1T1,R2 “SET BOT BIT IN EXPECTED 
CMP R1R2 “DOES EXP = REC'D 

BEO 2408 BR, 1F EQUAL ( 





) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER = ny 
CSERWROD 


234 
-WORD 1350801 
_______ ORD =. _EXPREC 


JSR PC ,FATCHK 
ERRHRD ERRNO, TSOB0T .EXPREC 















SEQ 157 


TEST 







5352 035250 
035950 





5354 035254 
5355 035256 


5360 035274 
5361 


CZTUZAO TUBO FRONT END PRT D 
2: SKIP TAPE MARKS 





5353 035252 005725 


1 
020127 177777 
036534 


036534 
37 034542 
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2408: 


330$: 


CKLOOP 


(R3)¢ 
(93) RI 
Ri,#i77777 


TSOFCN,RI 


RI T3OFCN 
182% 


1 11 


sLOOP IF SELECTED 

TRAP CSCLP1 
sPOINT TO NEXT POSITION 
; NEXT COMMAND 


ETc 













UMP TO MORE 
OOP IF SELECTED 
SCLPI 


RAP Cc 
$€€€€€<€<€<<<< END SUBTEST >>>>>>>>>>> 
10045: 
CSESUB 


J 
L 





SEQ 138 


— ee ee Se —_ 





Ji 


00 SEQ 139 
CZTUZAO TUBO FRONT END PRT D0 MACRO M1 Q-MAR-83 13:4 
TEST 2: SKIP TAPE MARKS om 83 13:43 PAGE 86 









+ 


;TEST 2, SUBTEST 3 


: VERIF 16S THAT A SKIP TAPE MARKS REVERSE COMMAND 

ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 
SFUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
; FUNCTION (NEF) ERROR BIT SET. 






5379 
5380 035310 
035310 

















BGNSUB 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
12. 
035310 csesu3 
$381 035312 004737 041132 SR PC, T3OREST sSET COMMAND PACKET 
5382 035316 036534 T30F CN : CLEAR FILE COUNTER 
7? 041266 iSET UP OTHER COMMAND PACKET 
176750 036536  oTSODLY SSET UP DELAY COUNTER 
016634 108: PC, SOFINI °DO INITIALIZE ON CONTROLLER 
550 son If Inst WAS Ox 
000250 : MOV #250, (PC) 
002116 MOV LSDLY, (PC) 
177772 DEC “6(PC) 
177756 DEC =22(PC) 
036536 DEC T3ODLY :BUMP COUNTER : 
BNE 108 :BR, 
020070 JSR PC, FATCHK > INC CHECK FOR 25 ERRORS 
MOV : “CONTENTS OF TSSR REGISTER 
ERRDF ERRNO, SFIERR,SFIMSG FATAL ERROR TSSR WAS NOT OK 
TRAP  CSERDF 
.WORD 235 
33 208: ; 
5399 035422 012704 036350 MOV @TSOPACKET RG sSUBROUTINE NEEDS PACKET ADDRESS 
stor seveceerererereereeeerecerseeseseerenntesenaganeeneenenens 
5403 “ISSUE WRITE CHARACTERISTICS COMMAND 
sabe  eeenenereereeeeeecererereeerecenreneareneeneerenreneerete 
5407 010322 JSR PC .WRTICHR sISSUE WRITE CHARACTERISTICS 
5408 acs “BR, IF COMMAND 
5409 020070 JSR BC FAT CHE INC AND CHECK FOR MORE THAN 25 ERRORS 








K 11 
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TEST 2: SKIP TAPE 





5414 035442 


5464 
5427 035470 
5431 035474 
5474 


035476 000 





58 
5459 035550 
$460 035556 
5461 035562 


104456 
000354 


004754 
011656 
104406 


013701 
000002 
2 


010424 


000000 
020070 


036376 


020070 


000001 


141410 
036500 
177776 


ERRHRD ERRNO, WRIASG,SFIMSG 


23$: CKLOOP ;LOOP IF SELECTED 


SRAAHAEAAAAAHAHAASAHAAAETEAAAAAHARAAAANAAAEAHAERAHENALETES 


ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 


: 
SRAATAAAAAAAKAKTAKEAASAASAE LE AHAAAAAEHEAAEAAAAATAAAAELAAES 








PC REWIND s CALL TAPE REWIND COMMAND 
30% sBR, PROBLE 

RO,R4 sGET PACKET ADDRESS 
TSSRCRS) RI 3GET aoe tence ban a 





JSR FATCHK sINC AND CHECK 
ERRHRD ERRNO, TSORWN,PKTSSR SREWIND NOT ACCEPTED 


30S: CKLOOP sLOOP IF SELECTED 


SRAAAAAAAKAAAAAAAAATAAAAAATHAAS HAA AHASAAAARAAAAASAAAAHEAAS 


“GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

+ eeeeeeeneereceeeeerenretrececeeretsreeneenneneeeneereeees 
mov —s- T3OBFR+6,R1 PICK UP XSTO 
MOVs, “SET UP EXPECTED 
BIS § #BIT1.R2 SET BOT iBT IN EXPECTED 
CHP CORT, R2 SDOES EXP = REC: . 


BEO 40$ “BR, IF EQUAL 
JSR PC, FATCHK SINC AND CHECK 
ERRHRD ERRNO, T3OBOT .EXPREC 


40S: CKLOOP sLOOP IF SELECTED 

MOV #1, 130uB SET # OF TM TO SKIP 
seeeereenecereneeeerecereteererreneanrenneenteneenenteetet 
SKIP TAPE MARK REVERSE ,ACK,CVC=1 COMMAND 


a2 
8 
seeenererenreraereeseerrecreerenecanneeengnenenganeneeeens 


MOV #141410, TSOPKS 
MOV aT 









Re 
A 





) 
FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER Bory 





CSERHRD 
236 


WRTMSG 
SF IASG 


CSCLPI 


FOR MORE THAN 25 ERRORS 











sSKIP TAPE MARK REVERSE ,ACK,CVC=1 CRD 
ett tie R SET 'g a AA PACKET =e 


—— a a - 


enw << oe — 
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SEQ 141 
CZTUZAO TUBO FRONT END PRT D , 
TEST 2: SKIP TAPE MARKS 











5462 035566 004737 017110 C .WAITF sWAIT FOR SSR TO SET 
5463 035572 016501 000000 TSSRCRS) RI “GET TSSR CONTENTS 
5464 035576 012702 100206 #SSR'SC!BITI!BIT2,.R2 $e UP EXPECTED 
$465 035602 020102 R1.R2 ARE THEY EQUAL 
5466 035604 001406 : 
004737 020070 FOR MORE THAN 25 ERRORS 


5467 035606 
5471 035612 
35612 


JSR PC ,FATCHK 
ERRHRD ERRNO, TSOIBT ,PKTSSR 






OK 
SINC AND CHECK 
STSSR INCORRECT AFTER WRITE DATA 
TRAP C 

















0 104456 
035614 000357 «WORD 239 
035616 036711 «WORD T3O0IBT 
035620 011670 «WORD PKTSSR 
5472 035622 708: CKLOOP sLOOP IF SELECTED 
5473 035622 104406 TRAP CSCLP1 
5474 SRRAAAAAAAAEAEAEREERALEAAATETAAAEHEAAAAAERAHAAAAAHERELERS 
5475 : 
aa sGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 
5478 s aeeereneeerenerenerenserenreeretereneaneentenenerenerenes 
5479 
5480 035624 013701 036376 MOV sPICK UP xSTO 
5481 035630 010102 MOV 3SET UP EXPECTED 
035632 052702 002000 BIS sSET NEF B iy IN EXPECTED 
03 020102 CMP sDOES EXP = REC'D 
5484 035640 0014 BEQ If EQUAL (OK) 
5485 035642 004737 020070 JSR C .FATCHK INC AND ae FOR MORE THAN 25 ERRORS 
03 ERRHRD ERRNO, TSONEF ,EXPREC sTaPE NOT AT NEF 
03 104456 TRAP CSERHRD 
0356 000 -WORD 2 
035652 040456 -WORD TSONEF 
035654 0163354 WORD EXPREC 
5490 035656 180$: CKLOOP sLOOP IF SELECTED 
035656 104406 RAP CSCLP1 
5491 035660 ENDSUB £€<€<€<€<<<<<<< END SUBTEST >>>>>>>>>>> 
035660 L10046: 
035660 104403 CSESUB 


A A OO LLL AE - 


; 
eal OE 


M11 




































ce -~- 


ne 


SEQ 142. 
CZTUZAO TUBO FRONT END PRT D MACRO M1 -MAR- : | 
CZTUZAD TUBO FRONT END P CRO M1200 29 83 13:43 PAGE 87 
5493 + 
3295 “TEST 2 TEST 
5495 : , SUBTEST 4 
5497 
5498 “VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMAND 
5499 “ISSUED WHILE THE TAPE 1S POSITIONED Just BEFORE T 
5500 “FIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES T APE 
5501 “STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 
$502 = (RIB) STATUS BIT SET. 
5503 ; 
5504 : 
5505 : 
5506 ; 
5507 : 
5508 3° 
5509 eeees BGNSUB $>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
5510 Osseee ooa7s? 041132 JSR PC, T3OREST . —— 
P 
5511 035670 005037 036534 CLR TSOFCN LS Tie COUNTER 
5512 035674 004737 041224 JSR PC, TSORT2 
5513 035700 004737 041266 JSR PC. TSORTS 
5514 035704 012737 176750 036536 mov #65000. , T30DLY SSET UP DELAY COUNTER 
5515 035712 004737 016634 10$: JSR PC, SOF INIT *DO INITIALIZE ON CONTROLLER 
5516 035716 103426 acs 20$ BR IF INIT WAS OK 
5517 035720 DELAY 250 “DELAY ROUTINE CALL 
035720 012727 000250 #250, (PC)* 
Ser Sm ocr 
Sr Be rrr Lo 
) 
Sere BF arr Be 
- ) 
5518 orees0 036536 DEC T3ODLY BUMP COUNTER = . 
5519 035754 BNE 10$ “BR, IF MORE COUNTING TO DO 
5520 035 737 020070 JSR PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
5526 035762 MOV : “CONTENTS OF TSSR REGISTER 
0357 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
035764 T CSERDF 
035766 .WORD 241 
35770 003550 “WORD  SFIERR 
035772 011656 “WORD  SFIMSG 
5526 035774 208: 
012704 036350 MOV #TSOPACKETR4 sSUBROUTINE NEEDS PACKET ADDRESS 
seeeeeeeneneerererererterrerteretreneerenengnaenaeeengeens 
3 ISSUE URITE CHARACTERISTICS COMMAND 
WUTTTTITTTITTTLIT LLL 
006737 010322 JSR PC,.WRICHR SISSUE WRITE CHARACTERISTICS 
103407 CS 3BR. 1F COMMAND ISSUE 
004737 020070 JSR PC, FATCH we AND CH : 4 25 ERRORS Ss 


CZTUZAO TU8O FRONT END PRT D 


N 11 
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TEST 2: SKIP TAPE MARKS 

343 rte —_— ERRHRD ERRNO WRTMSG,SFIMSG yee CHARACTERISTISC ‘o 
036014 104456 } 7 rg 
036016 000362 TYORD 
036020 004754 ~ WORD 
036022 011656 .MORD 

5544 036024 23$: CKLOOP sLOOP IF SELECTED 

5545 036024 104406 TRAP CSCLP1 

a SRRRRReRReReeeeeeeeeeteneeeeneeesNKenAAeAenseneenesereeeee 

5548 ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

sree ITITI Titi tt iit TT 

5552 036026 004737 010424 JSR PC REWIND + CALL TAPE REWIND COMMAND 

5553 036032 103411 BCS 308 PROBLEM 

5554 036034 010004 MOV RO,R4 GET PACKET ADDRESS 

5555 036036 016501 000000 MOV TSSRC(RS),R1 :GET STATUS REGISTER 

5556 036042 004737 020070 JSR PC ,FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 

5 036046 ERRHRD ERRNO, TSORWN,PKTSSR s REWIND NOT ACCEPTED 
036046 104456 TRAP CSERHRD 
036050 000363 -WORD 243 
036052 040120 -WORD T 
036054 011670 -WORD PKTSSR 

5561 036056 308: CKLOOP sLOOP IF SELECTED 

5560 036056 104406 TRAP CSCLP1 

at SRERRAARAAAAAASAAAREAEAATALAATAAEAAAAAAAEAEEAEAAREREAAEEEE 

5 : 

ahaa *GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

§567 [Reeeneeeeeneeearerenreeereretreneenerenneeneeeeneeneneeee 

5568 

5569 036060 013701 036376 MOV cic R1 sPICK UP xSTO 

5570 036064 010102 MOV Ri, sSET UP EXPECTED 

5571 036066 052702 000002 BIS WBiTi .R2 SET BOT BIT IN EXPECTED 

5572 036072 020102 CMP R1,R2 DOES EXP = REC'D 

5573 036074 001406 BEQ sBR, IF EQUAL (OK) 

5574 036076 004737 020070 JSR PC FA sINC AND CHECK FOR MORE THAN 25 ERRORS 

5578 036102 ERRHRD eRiND. +30B0T. EXPREC ° TAPE NOT AT BOT AFTER REWIND 
036102 104456 TRAP CSERHRD 
036104 244 
036106 037721 eWORD T30B0T 
036110 016334 -WORD EXPREC 

5579 036112 40S: CKLOOP sLOOP IF SELECTED 
03611 104406 TRAP CSCLP1 

5580 036114 013737 003072 036502 MOV FREE. T30WB SET UP GOOD WRITE BUFFER 

3ons 036122 012737 000400 036506 MOV #256. ,130S2 :SET UP SIZE 

5583 seeneenereneneeeerserrererregerragrseeeeeneeenaenreeeeeneee 

5584 $ 

3 +4 WRITE DATA,ACK,CVC=1 COMMAND 

3306 seeeeereeneeerreeterernteereeereneenetentenneeneeneeeneet 

588 


| ea 036130 012737 140005 036500 MOV #140005 ,T30PK3 sWRITE DATA.ACK.CVC=1 COMMAND 


SEQ 143 | 


eal 


TEST 2: 


5590 036136 


012704 


5591 036142 010465 
5592 036146 0047357 


5593 036152 
5594 036156 
5595 Statar 
5596 036164 
5597 036166 
5601 





104457 
36 


000365 
037050 
011670 


104406 


CZTUZAO TUBO FRONT END PRT D 
SKIP TAPE MARKS 


036500 
177776 
017110 
000000 
000200 


020070 


012737 000001 


104456 
600366 


036540 
36262 011670 
104406 


036404 


702 000001 


020070 
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MOV #T30PK3,R4 sSET UP R4 WITH PACKET ADDRESS 
MOV RG, TSDBCRS) SISSUE COMMAND 
JSR PC-WA SWAIT FOR SSR TO SET 
MOV TSSRCRS) RI [GET TSSR CONTENTS 
MOV #SSK,R2 SSET UP EXPECTED 
CMP R1,R2 SARE THEY EQUAL 
BEQ 70$ “BR, IF OK 
JSR PC ,FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
:SOFT ERROR, DON'T CARE ABOUT WRITE 
“COMMAND'S RESULTS = CHECKING SKIP 
“TAPE MARK COMMAND 
ERRSOFT ERRNO, T30WDD,PKTSSR “TSSR INCORRECT AFTER WRITE DATA 
TRAP  CSERSOFT 
: 265 
“WORD 
PKTSSR 
70$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
SRARAAAAAAAAAAAEAARAAAAASAALAASSAAAAARAAAARAAAAARAAAAATEEEES 
“SKIP TAPE MARK REVERSE,ACK,CVC=1 COMMAND 
* aeeeeneeenereenereererneereneeeneaneeeeeneneeeeeeeneteeee 
036502 MOV #1, 130uB :# CF TH TO SKIP 
036500 MOV #141410, T30PK3 °SKIP TAPE MARK REVERSE,ACK,CVC=1 CMD 
mova “RG “SET UP RG WITH PACKET ADDRESS 
MOV R4, TSDBCRS) SISSUE COMMAND 
JSR PC, WAIT SWAT FOR SSR TO SET 
MOV TSSRCRS) PICK UP TSSR 
MOV seee eit tSC.R2 SET UP EXPECTED (SSR AND SC ONLY) 
CMP sé WAS STATUS GOOD 
BEQ “BR, IF TERMINATION WAS GOOD 
JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T3OIBU,PKTSSR “TSSR NOT CORRECT AFTER WRT TAPE M. 
TRAP CSE 
246 
“WORD T3OIBU 
WORD PKTSSR 
160$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
seeeeeaeereeereeeeeererteereerertegeegenaseeaneeeneeesenns 
“GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 
+ eeeaneneeerenererererteeretreeteeeenereneneneenneneeenest 
MOV T3OBFR+14,R1 sPICK UP XST3 
MOV Ri oR [SET UP EXPECTED 
BIS #eito,r2 “SET RIB BIT IN EXPECTED 
CHP sé, R2 “DOES EXP = REC'D 
BEQ “BR, IF EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 


JSR 
ERRHRD 


PC .FATCHK 
ERRNO, TSORIB .EXPREC 


TAPE NOT 
__IRAP. . CSERHRD 


SEQ 144 
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SEQ 145. 
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TEST 2: SKIP TAPE MARKS 
036312 000367 «WORD 247 
| 036314 036625 «WORD T3ORIB 
, 036316 016334 -WORD EXPREC 
5645 036320 170$: CKLOOP sLOOP IF SELECTED 
036320 104406 TRAP CSCLP1 
5646 036322 ENDSUB 2€<€€€€€€<¢<< END SUBTEST >>>>>>>>>>> 
036322 10047: 
036322 104403 TRAP CSESUB 
7 sSUBTEST END 
5649 : 
5650 036324 004737 017344 JSR PC, TSTLOOP :00 WE NEED TO ITERATE TEST 
$651 036330 10300 Bcc 400$ BR, IF NO LOOP REQUIRED 
$652 036332 000137 032352 JRE T3OLOOP sEXECUTE AGAIN 
400$: EXIT TST sALL DONE THIS TEST 
TRAP CSEXIT 
«WORD 110043-. 





—_———e ——_—_——— ——————— ee eee ——s_ -- — = 
ee ; 
aa 


—~— eee cee ee ee Ce Ee 


—_ eo 


5655 





701 

5702 036516 
5704 036516 
5705 036520 





CZTUZAO TUSO FRONT END PRT D 
TEST 2: SKIP TAPE MARKS 


036370 
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4 
LOCAL STORAGE FOR THIS TEST 


-BLKB 
T3OPACKET: 


T3ODATA: 


T3OETM: .WORD 
T3OBFR: .BLKW 


“WRITE SUBSYSTEM MEMORY COMMAND PACKET 


-BLKB 
T3OPK2: 








sNEITHER EWB NOR ESS 
sEWB SET 

3ESS SET 

;BOTH E.d AND ESS SET 
END OF DATA 


s TAPE TIMER COUNTER STORAGE AREA 
; TAPE USA ut STORAGE AREA 


sFILE NUMBER C 
SDELAY COUNTER STORAGE 








1fe< ,.-TUV2ZA87> 
sCOMMAND PACKET FOR TEST 
100004 WRITE CHARACTERISTICS COMMAND, WITH , 
— sADDRESS OF CHARACTERISTICS BLOCK 
10. sSTARTING VALUE OF BLOCK SIZE 
CHARACTERISTICS DATA BLOCK 
amen S ADDRESS OF MESSAGE BUFFER 
20. sLewetn OF mesenee BUFFER 
0 sSKIP TAPE PARK CONTROL 
25. : MESSAGE BUFFER 
10-<.-TUV2AE7> 
100006 sWRITE SUB SYS MEM COMMAND, AND ACK 
_—"* S ADDRESS OF SELECT BLOCK DATA 
6. sSIZE OF DATA PACKET 
10-<.-TUV2AE7> 
100205 sREREAD COMMAND, IE AND ACK 
— sADDRESS OF WRITE BUFFER 
0 sSIZE OF BUFFER (EXTENT) 
sBSELO AREA 
:BSEL1 AREA 
sSEL 2 AREA 
*DATA AREA 


ACK 


SEQ 146 


— een 


i 
ee ee LL OL LLL A LLL LL LIE LL ALLL 
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SEQ 147 
































5715 34 

a7i¢ sLOCAL TEXT MESSAGES FOR TEST 

it 

5720 036540 124 123 123 ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT’ 

5721 036625 122 111 102 eASCIZ ‘RIB Bit (XST3) Failed To Set After Reverse Into BOT’ 

§722 036711 124 123 123 ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT’ 

$723 036774 124 123 123 -ASCIZ ‘TSSR Incorrect After SKIP TAPE Cc 4 

5724 0370 124 123 123 .ASCIZ ‘TSSR Not Correct After WRITE DATA Command’ 

§725 937122 124 141 160 ASCIZ ‘Tape Not Positioned On Correct Record After READ REVERSE’ 

5726 0372135 124 141 160 ASCIZ ‘Tape Not Positioned On Second File First Record’ 

§727 0372 124 123 123 .ASCIZ ‘TSSR Incorrect After READ FORWARD Into ‘File’” 

$728 0373 124 123 123 ASCIZ ‘TSSR Incorrect After SPACE Command Into TAPE MARK‘ 

5729 037433 124 123 123 ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 

5730 03751 111 154 154 ASCIZ ‘I lL Mode Bits, Failed To Set ILC Bit In xsT0° 

§731 037571 127 122 111 ASCIZ ‘WRITE MISCELLANEOUS Command Not Accepted’ 

5732 03764 124 123 123 ASCIZ ‘TSSR Not Correct After SKIP TAPE MARKS, At BOT’ 

5733 037721 126 141 160 -ASCIZ ‘Tape Not At BOT After REWIND Command’ 

5734 0377 124 123 123 ASCIZ “TSSR Not Correct After SPACE FORWARD Command’ 

5735 04004 124 123 123 eASCIZ ‘°TSSR Not Correct After SPACE REVERSE Command’ 

5736 0401 122 145 167 eASCIZ ‘Rewind (POSITION) Command Not Accepted’ 

5737 040167 104 162 151 ASCIZ ‘Drive 7 Select Failed To Set "OFL’* In TSSR’ 

5738 040242 124 123 123 ASCIZ ‘TSSR Not Correct After WRITE TAPE MARK Command’ 

040321 103 126 103 eASCIZ “CVC Set, Didn’’t Reset VCK In eg Buffer’ 

5740 040374 {24 115 113 ASCIZ “TAK Not Set After WRITE TAPE MARK (RETRY) Command’ 
1 0640656 123 113 111 ASCIZ ‘SKIP TAPE MARKS, At BOT, tailed To Set NEF Bit’ 

5742 040535 124 115 113 ASCIZ “TAK Not Set After READ REVERSE Into TAPE MARK’ 

5743 040613 124 115 113 ASCIZ ‘TAK Not Set After SPACE REVERSE Into TAPE MARK‘ 

5744 040672 124 115 113 ASCIZ “TAK Not Set After READ FORWARD Into TAPE MARK’ 

$745 0407 116 117 040 .ASCIZ ‘NO Data Transferred On READ FORWARD‘ 

746 041014 104 141 164 .ASCIZ ‘Data Compare Error, Data Read From Tape Not Equal To Written’ 

5747 041111 123 153 151 eASCIZ ‘Skip Tape Marks‘ 














sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 


TSOREST: 
sSAVE THE REGISTERS 
sSTAR 











#T3OPACKET,R1 : T OF THE PACKET 
1 00006 #100004, (Ri)+ “WRITE SUBSYSTEM MEM. WITH ACK, 
041146 012721 036360 STSODATA, (R1)¢ sADDRESS OF CHARAISTICS DATA BLOCK 
152 005021 (R1)4 “EXTENDED ADDRESS 
1154 012721 #10.,(R1)¢ “SIZE OF DATA BLOCK IN BYTES 
041160 012721 036370 aTSOBFR,(R1)* “ADDRESS OF MESSAGE BUFFER 
& 
041166 012721 000024 #20, ,(R1)¢ SLENGTH OF MESSAGE BUFFER 
+ 
041174 012711 000000 #0, (R1) sSELECT DRIVE ZERO 
041200 012702 000030 #24. ,R2 “NUMBER OF LOCATIONS TO BE CLEARED 
041206 012762 177777 036370 64%: #177777 , 130BFR(R2) ALL ONES TO MESSAGE BUFFER 
ostet2 005742 =(R2) “NEXT LOCATION 








CZTUZAO TU8O FRONT END PRT D 


TEST 2: 


772 041220 
5773 041222 
774 


775 
5776 041224 
777 24 


72 012701 
005021 


005021 
005021 
005011 


1306 000207 


104401 


SKIP TAPE MARKS 
001371 
000207 


036500 


F 12 


MACRO M1200 29-MAR-83 13:45 PAGE 89-1 


T3ORT2: 


T3ORTS: 








ot zeere tt 
#100006, (R1)¢ 
eTs0BF 2 o(R1)¢ 


1 ghd 
+ ala 


(Ri) 
PC 


Aenea 
CR1)+ 
(R1)¢ 
(R1)¢ 

(R1) 


eee ee 


sKEEP GOING UNTIL DONE 
RETURN 


sSAVE THE REGISTERS 

sSTART OF THE PACKET 

SWRITE ye tr MEM. WITH ACK, 
ADDRESS OF DATA BLOCK 

EX TENDED ADDRE 

3SIZE OF DATA BLOCK IN BYTES 

sPOINT TO DATA SEL AREA 


s RETURN 


sSAVE REGISTERS 
:SET UP POINTER ADDRESS 
SPACE 


; COMMAND 
areas OF DATA BLOCK 
sEXTENDED ADDRESS 
f+. Ry DATA TRANSFER BLOCK 





110043: 


TRAP CSETST 


SEQ 148 


eee ee 1 
—a nnd eee 
—— eel 


~— PO A - 


_ =< oe eae ee Ge eee)"'’. 


$825 041352 


CZTUZAQ TU8O FRONT END PRT D 
TEST 3: NO-OP (*‘CLEAN TAPE’) AND INITIALIZE 
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002146 


002164 


-S8TTL TEST 3: NO-OP ('*CLEAN TAPE’) AND INITIALIZE 


:* 


“THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE’) AND INITIALIZE 
;COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 


THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 





FATFLG ; 
KTFLG : 
#EPRT1 EPRTSW : SAGE 
#TST3110,RO : MESSAGE TO IDENTIFY TEST 
+ Dy STSETUP 3 TuP 

LOOPCNT SPERFORM 2 ITERATIONS 
15 ¢;t00 “CLEAR TAPE RECORD COUNTER 


T3SILOOP: 


SEQ 149 


EE SS Se ew 


H 12 























































1 
CZTUZAQ TUBO FRONT END PRT D MACRO M1200 29-MAR-83 13:43 PAGE 91 aaeiets 
TEST 3: NO-OP (“CLEAN TAPE’) AND INITIALIZE 
5827 3¢ 
5828 ; 
5829 :TEST 3, SUBTEST 1 
$831 : VERIFIES THAT THE NOOP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
5832 : COMMAND ) 
5833 ; STATUS IN THE MESSAGE ‘ 
5834 : INDEED DOES NOT MOVE 
5835 : WRITTEN WITH SEQUENCED TEST RECORDS. 1S THEN REWOUND AGAIN 
5836 : AND THE NO-OP COMMAND IS ISSUED. IT 1S VERIFIED THAT THE TAPE 
5837 : IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
5838 : RECORD ON TAPE IS READ AND VERIF LED (TO CHECK TAPE POSITION AND 
5839 : VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMAND IS 
5840 : ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 
5842 : 
5843 YS 
5844 : 
5845 : 
5846 : 
5847 :< 
5848 041352 BGNSUR 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
041352 13.1: 
041352 104402 TRAP C$BSUB 
5849 041354 004737 046450 JSR PC, TSIREST sSET COMMAND PACKET 
5850 041360 004737 046542 pC. TS1RT2 SET UP OTHER COMMAND PACKET 
5851 041364 004737 046604 PC. T3IRT “SET UP OTHER COMMAND PACKET 
$852 041370 012737 176750 043202 #65000. ,T31DLY [SET UP DELAY COUNTER 
5853 041376 004737 016634 108: PC, SOF INIT [D0 INITIALIZE ON CONTROLLER 
5854 041402 103426 208 “BR IF INIT 
5855 041404 250 “DELAY ABOUT .25 SEC 
041404 012727 000250 #250, (PC)+ 
000000 0 
002116 LSDLY, (PC)+ 
177772 “6(PC) 
177756 =22(PC) 
043202 DEC T3IDLY :BUMP COUNTER 
BNE i BR, IF COUNTER NOT DONE 
020070 JSR PC FATCHK “INC AND CHECK F ERRORS 
MOV RO,R “CONTENTS OF TSSR REGISTER 
ERRDF ro anO, SFIERR, SF IRSG FATAL ERROR TSSR WAS NOT OK 
T CSERDE 
; 301 
‘ SFIERR 
~ y SF IMSG 
043020 ROV STSIPACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
010322 JSR PCURTCHR TISSUE WRITE CHARACTERISTICS 
acs 23$ BR, OMMAND ISSUED OK 
020070 JSR PC, FATCHK K FOR MORE THAN 25 ERRORS 





>: INC 
mOV oR ;SAVE_CONTEN NTS OF TSSR 
ERRHRD ERRNO, WRIMSG, SF IASG WRITE CHARACTERISTISC — 





CSERHRD 
302. 






A LALO, LOE, LLL LLL ——_ 
- 
aon 


Cran Tus0 yt END PRT D 
TEST 3: NO-OP (“CLEAN TAPE") 


004754 

011656 

104406 
7 








010424 


020070 


043046 
000002 


020070 
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AND INITIALIZE 


23$: 


40$: 


043152 
140005 043150 65$: 


020070 


010424 


020070 


362 
1 : 043156 





CKLOOP 

JSR PC REWIND 

acs 308 

MOV RO,RS 

JSR PC. FATCHK 

ERRHRD ERRNO, T31RWN,PKTSSR 


CKLOOP 

MOV TSIBFR*6,R1 

MOV ° 

BIS @B1T1,R2 

CMP R1,R2 

BEQ 4 

JSR PC ,FATCHK 

ERRHRD ERRNO, 1T51BOT ,EXPREC 






FREE, 1318 
#140005 ,131PK3 
aTsiPK PRS -R6 





PC ,FATCHK 


ERRSOFT ERRNO, TS1WOC .PKTSSR 


JSR PC REWIND 
2308 





RO,RI 
PC .FATCHK 
ERRNO, TSIRWN,EXPREC 





-WORD UWRTASG 

-WORD SFIMSG 
;LOOP IF SELECTED 

TRAP CSCLPI 


s CALL TAPE REWIND COMMAND 
PROBL 


iF En 
Set UP REWIND PACKET ADDRESS 


NC AND CHECK FOR MORE THAN 25 ERRORS 
REWIND NOT ACCEPTED 





TRAP CSERHRD 
- WORD 3 
«WORD TSIRWN 
-WORD PKTSSR 

sLOOP IF SELECTED 
TRAP CSCLPI 

sPICK UP XSTO 

SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

:DOES EXP = REC'D 

sBR, IF EQUAL (OK) 

7INC AND CHECK FOR MORE THAN 25 ERRORS 





TAPE NOT AT BOT AFTER oy 





CSERHRD 





T3160T 
EXPREC 


CSCLPI 





sLUOP IF SELECTED 


RAP 
sSTARTING WRITE BUFFER ADDRESS 
WRITE DATA,CVC=1.ACK COMMAND 

SET UP R4 WITH PACKET ADDRESS 
:Set PATTERN IN CORRECT REGISTER 
sFILL MEMORY WITH RECORD SIZE 
3 SET WP RECORD SIZE IN PACKET 

F | COMMAND 


21S 
sWAIT FOR SSR TO SET 





















sBR, IF OK 

SINC AND CHECK FOR MORE THAN 25 ERRORS 
sSOFT ERROR, DON'T CARE ABOUT WRITE 

; COMMANDS RESULTS = CHECKING 


;NO-OP COMMAND 
STSSR INCORRECT AFTER SS 









CSERSOF T 
-WORD 305 
-WORD TSiWdC 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 


s CALL TAPE REWIND COMMAND 
PROBLER 


SAVE TSSR 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 

CSERHRD 





SEQ 151 


CZTUZAO TUBO FRONT END PRT D 
TEST 














3: NO-OP (’*CLEAN TAPE'’) AND INITIALIZE 


230$8: 
043046 
5926 
; 52702 000002 
020070 
240$: 






5936 041756 

5937 041764 012704 

5938 041770 

5939 041774 01046 
042000 


280$: 
1 
5952 04 
5953 04 
5954 
5961 285$: 


043150 
31 
043156 
6 


70 1 
sie 012 
04 

112 01 
ye 004 
at 
1 
34 


ri 
ree 
ree 
me 


oes 043150 2658: 


CKLOOP 
MOV 
MOV 
BIS 
CMP 
BEQ 


JSR 
ERRHRD 
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TS1BEROG.R 
#BiT1,R2 
R1R2 


PC .FATCHK 
ERRNO, 151B0T ,EXPREC 


al age 


2 
PC ,FATCHK 
ERRNO, TSIRDF ,PKTSSR 


TSIBFR+6,R1 
R1R 

#B1T1 ,.R2 
R1R2 


2 
PC ,FATCHK 
ERRNO, T51B0T ,EXPREC 


#140001 , 731PKS 
@TSIPKS RS 





«WORD 306 

-WORD TSIRWN 
WORD EXPREC 
TRAP CSCLP1 


sLOOP IF SELECTED 


PICK UP XSTO 

:SeT UP EXPECTED 

;SET BOT Roly IN EXPECTED 
sDOES EXP ght 








QUAL 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
STAPE NOT AT BOT AFTER ey 
CSERHRD 
. 307 
. 131801 
EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 





sNO-0P ,CVC=1 COMMAND 
SET UP R4 WITH PACKET ADDRESS 
sSET UP RECORD SIZE IN PACKET 








sBk, IF OK 
ZINC AND CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
- WORD 
. T3IRDF 
-WORD PKTSSR 
sLOOP IF SELECTED 
RAP CSCLP1 
sPICK UP XSTO 
;SET UP EXPECTED 
SET BOT BIT IN EXPECTED 
sDCES EXP = REC'D 
:BR, IF EQUAL ( 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
STAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
. TS1B0T 
WORD EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


sREAD -ACK CVC=1 COMMAND 
Ré WITH PACKET ADDRESS 
at YP RECORD SIZE IN PACKET 


s ISSUE COMMAND 
WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
sARE THEY EQUAL 


SEQ 152 





5971 042136 


5975 oes 


042144 


104456 


000466 
042146 043204 


042150 
5976 042152 
152 


5981 70 
5985 poy Hs 
042176 000467 

200 





CZTUZAO TUBO FRONT END PRT D 
TEST 3: NO-OP (°’CLEAN TAPE") AND INITIALIZE 


004737 020070 


140712 
000144 


020070 


3308: 


K 12 
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JSR PC .FATCHK 
ERRHRD ERRNO, TSIRDE ,PKTSSR 


MOV ot ket 


PC ,FATCHK 
ERRHRD ERRNO, TSIWNG ,EXPREC 









sINC_ AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT. AFTER READ DATA 


;LOOP IF SELECTED 
sGET DATA READ 











‘DID TAPE STAY POSITIONED 
sBR, IF E = RECD 
INC AND CHECK FOR MORE THAN 25 ERRORS 
: TAPE DATA NOT CORRECT 
TRAP CSERHRD 
-WORD 311 
-WORD TSIWNG 
«WORD EXPREC 
¢>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110051: 
CSESUB 


3: 


ren ee TU8O FRONT END PRT D 


L 12 
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("CLEAN TAPE’’) AND INITIALIZE 


34 
011670 


104406 
013701 


010102 
052702 
020102 
001406 





046450 
046542 
046604 


016634 


7 020070 


043020 
010322 
7? 020070 


7 010424 


020070 


043046 
000002 





a 


STEST 3, SUBTEST 2 


JSR PC, TSIREST 
JSR PC, TSIRT2 
JSR PC, TSIRTS 
JSR PC SOF INIT 


208 
JSR PC .FATCHK 


MOV ‘ 
ERRDF ERRNO,SFIERR,SFIMSG 


MOV @T3IPACKET R4 
JSR PC, URTCHR 
acs 23 
JSR PC FATCHK 
ERRHRD ERRNO, WRTMSG, SFIMSG 
233: CKLOOP 
JSR PC REWIND 
acs 
MOV RO,RS 
JSR PC .FATCHK 
ERRHRD ERRNO, TSIRWN,PKTSSR 
30S: 
T3IBFR6,R1 
#BiT1,R2 






R1 Re 


4( 


2 


VERIFIES Lg THE phn tt COMMAND OPERAT 


ES AS A NO-OP, 
S$ ARE PRESENT (THEY WOULD 


ep GNOSTIC ERROR 
ALREADY HAVE BEEN DETECTED IN PREVIOUS 4 ee THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1 


$>>>>>>>>>>>> — SUBTEST >>>>>>>>>>>> 


3.2: 
TRAP csesus 
T COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
3 SET UP 0 COMMAND KET 





OTHER ACK 
:00 ugh ye ON CONTROLLER 
:BR If INIT WAS OK 
K FOR MORE THAN 25 ERRORS 


sINC AND CHECK 
: CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS - OK 















CSERDF 
WORD 3512 
-WORD SFIERR 
-WORD SFIMSG 


SUBROUTINE NEEDS PACKET ADDRESS 
+ ISSUE WRITE CHARACTERISTICS 
; F COMMAND ISSUED 


P OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
7SAVE CONTENTS OF TSSR 
[WRITE CHARACTERISTISC = 
"GORD 









sLOOP IF SELECTED 
TRAP CSCLP1 
sCALL TAPE amy COMMAND 
F PROBLEM 


3BR, 

:SET UP REWIND PACKET ADDRESS 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 














sLOOP IF SELECTED 


sPICK UP XSTO 

SET UP EXPECTED 

7SET BOT BIT IN EXPECTED 
seoes * = i. D 


TRAP CSCLP 





SEQ 154 


Oe EL et ee te 








ceTuens TU8O FRONT END PRT D 
TEST 3: NO-OP (*‘CLEAN TAPE’’) AND INITIALIZE 


6039 042346 
6043 042352 
2352 


004737 
104456 
000475 


020070 


044205 
016334 
40S: 


06 

737 003072 043152 
140005 043150 65$: 
043150 


004 020362 
012737 000144 043156 
010465 177776 
7 017110 
000000 
000200 


020070 


2 
104457 
54 00047 


6 
045070 


2460 011670 


6086 042546 


010424 


? 020070 


2308: 
06 
: 043046 
702 000002 


406 
004737 020070 


0163534 
2408: 


104406 
012737 041012 043150 265%: 


JSR 
ERRHRD 


CKLOOP 


MOV 


CKLOOP 


mM 12 
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PC, FATCHK 

ERRNO, 131B0T ,EXPREC 

FREE, 131WB 

#140608 TS1PKS 

a 
ar 

TSSRCRS) RI 

#SSR,R2 

R1_R2 

PC. FATCHK 


ERRNO, TSIWDC ,PKTSSR 


PC REWIND 
230$ 


RO.R1 
PC .FATCHK 
ERRNO, TSIRWN ,EXPREC 


T3IBFR+6,R1 
R1,R 
#B1T1,R2 
R1,R2 


PC ,FATCHK 
ERRNO, T51B0T ,EXPREC 


#041012 ,.131PK5 


ras SS oe — 


s INC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE NOT AT BOT AFTER — 
a 








"ORD 
«WORD 131607 
WORD EXPREC 
sLOOP IF SELECTED 
CSCLP1 


sSTARTING WRITE BUFFER ADDRESS 
sWRITE DATA,CVC=1,ACK COMMAND 
:SET UP R46 WITH PACKET ADDRESS 
sSET PATTERN -. CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZ 
SET UP RECORD SIZE IN PACKET 
COMMAND 
sWAIT FOR SSR TO SET 
TSSR CONTENTS 
$SET UP EXPECTED 
isa —" 


















38R, 

3 INC AND OCHECK 4 MORE THAN 25 ERRORS 
: SOFT - DON’T CARE ABOUT WRITE 

; COMMAND ° S RESULTS - CHECKING 
;THE INITIALIZE COMMAND 

STSSR INCORRECT AFTER a A DATA 


CSERSOF T 
TGORD 1 
-WORD TSIWDC 
-WORD PKTSSR 














sLOOP IF SELECTED 

sCALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 

sSAVE T 


SSR 
INC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 


CSCLP1 


CSERHRD 
WORD 317 
-WORD TSIRWN 
EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
SET UP EXPECTED 
SET BOT Bt IN EXPECTED 
:DOES EXP = REC'D 


F EQUAL ) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER — 


CSERHRD 
WORD 318 
-WORD 131801 
WORD EXPREC 


SLOOP IF SELECTED ; 
TRAP - CSCLP1 
s INITIALIZE ,.CVC=1 COMMAND 


6087 042554 012704 043150 HOV @TSIPKS RS sSET UP R4 WITH PACKET ADDRESS 


SEQ 155 


mee me ete me ee ee ee ee re ee eee -—™ 


3: 
6088 042560 


042622 
6100 042624 

042624 
6101 042626 
6102 0426352 
6103 042634 
6104 042640 
6105 042642 
6106 042644 
6110 042650 


6125 042732 
732 


nen TU80 Ay END a 0 


EAN T 
010337 


564 010465 
004737 


042736 0435204 


40 
6126 042742 
742 
6127 042744 
6128 042750 


6136 042774 
6137 042774 


043046 
000002 


020070 


06 
140122 
000144 


020070 
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APE'*) AND INITIALIZE 


043150 
043156 


280$: 


285$: 


290$: 


3308: 


CKLOOP 


JSR 
ERRHRD 


ENDSUB 


R3,131S2 
R4, “a 


PC WAIT 
TSSRCRS) RI 
#SSK,R2 
Ri RS 
2 ~* 
PC, FATCHK 

ERRNO, TSIROF, PKTSSR 


TS1BER+GR 
#B1T1,R2 
R1,R2 


PC ,FATCHK 
ERRNO, T31B0T ,EXPREC 


#140001 ,T31PK3 
#T31PK3,_RG 

100. ,131$2 
R4, TSDB(R5) 
PC.WAITF 
TSSRCRS) RI 
#SSR,R2 
Ri R2 
PC,FA 
ath TOIRDE., PKTSSR 


@FREE RI 


PC.FA 
ERRNO. TSIWNH ,EXPREC 


SSR ld 


sSET UP RECORD SIZE IN PACKET 


R, IF OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER — 


CSERHRD 
- WORD 19 
«WORD TSIRDF 
«WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
SET UP 


EXPECTED 
;SET BOT A IN EXPECTED 
sDOES EXP = REC'D 

sBR, IF EQUAL 
SINC AND CHECK 


(OK) 
FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER — 


CSERHRD 
. 320 
«WORD 1351B0T 
EXPREC 
sLUOP IF SELECTED 
TRAP CSCLP1 


sREAD ACK CVC=1 C 


OMMAND 
SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 


ISSUE COMMAND 

sWAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
sSET UP EXPECTED 
SARE THEY E 


FOR MORE THAN = ERRORS 


SINC AND CHECK 
“TSSR INCORRECT AFTER READ DATA 


TRAP CSERHRD 

~ WORD 1 

«WORD TSIRDE 

WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLP1 


:GET DATA READ 
READ EXPECTED 

:DID TAPE STAY POS: TIONED 
sBR, IF EXPD = RE 


C 
C AND CHECK FOR MORE T 


¢ IN HAN 25 ERRORS 
STAPE POSITION NOT CORRECT AFTER INIT 
TRAP CSERHRD 


oWOR 
WORD T31WNH 


* >>>>>>>>>>> ND 


EXPREC 
22>>>222222 


SEQ 156 


— rane - 
—aE ene —— 


Se nee 


lee — <--> 


_— aw Cas en eu 


CZTUZAO TUSO FRONT END PRT 
TEST 3: NO-OP (°’CLEAN TAPE”) 


04277 
043774 104403 
6138 
6139 
6140 
6141 042776 004737 017344 
6 103002 
6143 063004 000137 041352 


0 104432 
003614 


B 15 
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AND INITIALIZE 


JMP 
163$: EXIT 


PC, TSTLOOP 
163$ 


T31L00P 
TST 


110052: 
TRAP 


:D0 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
sEXECUTE AGAIN 

ALL DONE THIS TEST 


CSESUB 


SEQ 157 


CZTUZAO TUBO ty END PRT D 
TEST 35: NO-OP ( 


65 
6167 043122 
6169 043130 
6170 043130 
6171 043132 
6172 043134 
4, 043136 


6174 

6176 043140 
6178 043150 
6179 043150 
6180 043152 


6181 043152 
043154 


6185 





“CLEAN TAPE) AND INITIALIZE 


000000 
rt 043156 000000 





¢ 13 
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:¢ 
sLOCAL STORAGE FOR THIS TEST 


COMMAND PACKET FOR TEST 

sWRITE CHARACTERISTICS COMMAND, 
SADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 

; CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 

LENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


WRITE SUB SYS MEM COMMAND, AND 
ADDRESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 
sBSEL1 AREA 
sSEL 2 AREA 


-BLKB 1%=<,.-TUV2A87> 
T3IPACKET: 
eWORD 100004 
-WORD TS3IDATA 
eWORD O 
-WORD 10. 
T31DATA: 
WORD TSIBFR 
-WORD 0 
-WORD 20. 
WORD 0 
T31IBFR: .BLKW 25. 
sWRITE SUBSYSTEM MEMORY COMMAND PACKET 
-BLKB 10-<.-TUV2A87> 
T31PK2: 
WORD 100006 
WORD T318F2 
-WORD 0 
WORD 6. 
-BLKB 10-<.-TUV2A87> 
T31PK3: 
eWORD 700005 
T31RB 
T31WB: .WORD FREE 
-WORD 0 
T31SZ: .WORD 0 
EVEN 
T31BF 2: 
T318S0: .BYTE 10 
T318S1: .BYTE 200 
T31S2: .WORD 0 
13183: eWORD O 


DATA AREA 


~EVEN 
TAPE MOTION PACKET COMMAND VALUES 


T3IRN: 
TSIWDR: 
T31CON: 
T3ICNT: 
TSICNU: 
TS1DLY: 


100205 
100605 


102205 
177777 


sREREAD DATA (NEXT) 
;REREAD DATA RETRY 

WRITE se 
SEND OF 


TAPE TIMER COUNTER STORAGE AREA 
STAPE TIMER COUNTER STORAGE AREA 
:DELAY COUNTER 


EL Le 


WITH , ACK 


ACK 


SEQ 158 


nee ea Ua EIENE SEEN 


db 13 





SEQ 159 
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TEST 3: NO-OP (*"CLEAN TAPE’) AND INITIALIZE 
6209 
6210 4 
ogi sLOCAL TEXT MESSAGES FOR TEST 
6213 
rear 
6216 043204 124 123 123 T3IRDE: .ASCIZ ‘TSSR Not Correct After READ Command’ 
6217 043250 124 141 160 T3IWNH: .ASCIZ ‘Tape Position Incorrect After INITIALIZE Command’ 
6218 043331 124 141 160 TSIWNG: .ASCIZ ‘Tape Position Incorrect After ommand' 
6219 043403 124 123 123 T3IRDF: .ASCIZ ‘TSSR Incorrect After READ DATA Command’ 
6220 043452 122 105 122 TS3IRRF: .ASCIZ ‘REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
6221 043547 120 117 123 T31SC: .ASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
6222 043631 122 111 102 T3ILOR: .ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
6223 043701 124 123 123 T3IWDF: .ASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set’ 
6224 043756 111 154 154 T31L0Q: .ASCIZ ‘Illegal Mode Bits, Failed To Set ILC Bit In xsTO° 
6225 044037 122 105 122 T3ISSR: .ASCIZ ‘REREAD COMMAND Not Accepted’ 
26 044073 124 123 123 T3IWDE: .ASCIZ ‘TSSR Not Correct After NO-OP (‘CLEAN TAPE’’) AND INITIALIZE Command,At BOT" 
27 044205 124 141 160 T3IBOT: .ASCIZ ‘Tape Not At BOT After REWIND Command (BOT Not Set In xST0)° 
044 116 117 055 T3ITIM: .ASCIZ ° (“CLEAN TAPE’) AND INITIALIZE''S Erase Tape Not Long Enough’ 
6229 044400 122 105 122 TSIEOT: .ASCIZ “REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 
044457 124 123 123 T31TM: .ASCIZ ‘TSSR Not Correct After REREAD COMMAND Reject’ 
6231 044534 122 145 167 T3IRWN: .ASCIZ ‘Rewind (POSITION) Command Not Accepted‘ 
044603 122 101 115 T3IRNC: .ASCIZ ‘RAM Error, Correct Data Pattern Not In Ram‘ 
6233 044656 124 123 123 TSIAMS: .ASCIZ ‘TSSR Init. Failed After REREAD C 4 
6234 044725 104 162 151 T3IOFL: .ASCIZ ‘Drive 7 Select Failed To Set “‘OFL’’ In TSSR’ 
6235 045000 124 123 123 T31WDD: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set* 
6236 045070 126 123 123 TSIWDC: .ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
6227 045143 103 126 103 T3IVCK: .ASCIZ ‘CVC Set, Didn’’t Reset VCK In Mess Buffer’ 
6238 045216 124 123 102 TSIBA: .ASCIZ ‘TSBA Not Correct After REREAD DATA Command’ 
6239 045271 127 122 111. T31WSS: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)’ 
6240 045360 122 145 141 TSILON: .ASCIZ ‘Reading Long Record Failed To Set RLL Bit In XSTO° 
6241 045442 122 145 141 T3ILOP: .ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO° 
6242 045524 122 145 163 TSIPBP: .ASCIZ ‘Residual Byte Count Incorrect After Short Record Read’ 
6243 045612 122 145 141 TSITRL: .ASCIZ ° Long Record Failed To Give Tape Status Alert’ 
6244 045700 116 117 055 TSINEF: .ASCIZ ‘NO-OP INITIALIZE, At First Record, Failed To Set RIB Sitin XSTATS’ 
6245 046021 124 123 123 TSISCF: .ASCIZ ‘TSSR Not Correct After SPACE RECORDS Command’ 
6246 046076 124 123 123 TSITSA: C12 “*TSSR Not Correct After NO-OP (‘‘CLEAN TAPE’) AND INITIALIZE, Into Bot’ 
6247 046203 124 123 123 TSIWRF: .ASCIZ ‘TSSR Not Correct After NO-OP (‘CLEAN TAPE’) AND INITIALIZE Command’ 
6248 046306 1N% 141 164 TS3IDTA: .ASCIZ ‘Data Compare Error, Data Read From Tape Not Equal To Written’ 
6249 046403 116 117 055 TST31ID: -ASCIZ "NO-OP ("Clean Tape’’) And INITIALIZE° 
6250 EVEN 
2 ’ 
625 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
oes sWRITE SUBSYSTEM MEMORY COMMAND 
6256 +. 
6257 
6258 046450 T3IREST: 
6259 046450 SAVREG sSAVE THE REGISTERS 
6260 046454 012701 043020 MOV @TSIPACKET RI sSTART OF THE PACKET 
6261 046460 012721 100004 MOV #1 a(R1)+ sWRITE SUBSYSTEM MEM. WITH ACK, 
oes 046464 012721 043030 MOV @TSIDATA, (R1)¢ sADDRESS OF CHARAISTICS DATA BLOCK 
046470 005021 CLR CR1D¢ sEXTENDED ADDRESS 
6264 046472 012721 000012 ROW #10. ,(R1)+ sSIZE OF DATA GLOCK IN BYTES 
6265 046476 012721 043040 MOV STSiBFR,(R1)* * ADDF YF MESSA RUFFER a 


AS eH TU8O FRONT END PRT D 










005021 
6267 046504 LL 000024 


000030 
177777 


6289 046602 000207 
6290 046604 


012701 043150 
5021 


00 

005021 
005021 
005011 


000207 


su55sagt 
pEEEEEEEES 


104401 
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NO-OP ("CLEAN TAPE’) AND INITIALIZE 





(R1)¢ 
#20.,¢(R1)¢ 
(R1)¢ 
#9.(R1) 
#24. ,R2 
043040 64S: #172777, 131BFRCR2) 
#0,R2 
64$ 
PC 
T3IRT2: 

SAVREG 

MOV sTS1PK2.R1 

MOV »(R1)4+ 

MOV aTstare. (R1)¢ 

CLR CR1)¢ 

MOV #6.,(R1)¢ 

CLR (R1)¢ 

MOV aTStBr2.R1 

CLR 

CLR cn 

RTS PC 

T3IRTS: 

SAVREG 

MOV #T31PK3,R1 

CLR (R1)¢ 

CLR (R1)¢ 

CLR CR1)¢ 

CLR cR1) 

RTS PC 

ENDTST 


qr wr oe ee 


sLENGTH OF MESSAGE BUFFER 


sSELECT DRIVE ZERO 
sNUMBER OF LOCATIONS TO BE CLEARED 
SAGE BUFFER 





sAT END OF LOOP Y 
;KEEP GOING UNTIL DONE 
sRETURN 


i THE REGISTERS 
sSTART OF THE 


PACKET 
WRITE yan MEM. WITH ACK, 
rs be: OF DATA BLOCK 


TENDED ADDRESS 
SIZE OF DATA BLOCK IN BYTES 
POINT TO DATA SEL AREA 


;RETURN 


—_ REGISTERS 
sSeT UP POINTER ADDRESS 
; COMMAND 


: ADDRESS OF DATA BLOCK 
XTENDED ADDRESS 
:SIZE OF DATA TRAKSFER BLOCK 











110050: 
TRAP CSETST 


SEQ 160 | 


ee —_— 
TT 


CZTUZAO TUSO FRONT END PRT DO 


TEST 4: 





ERASE AND OPERATION INCOMPLETE 


005037 
005037 


00 
012737 0056 
12700 


004737 
012737 000001 
005037 


051310 


F 13 
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002146 


002164 


-SBTTL TEST 4: Erase And Operation Incomplete 


VERIFIES | | AN ERASE atte oan ISSUED WHEN THE TAPE IS 
POSITION T BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 


1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 


2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 


3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 


4. A READ REVERSE nee IS ISSUED. yu IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET, AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES twat. NO DATA 

= — IN THE AREA ERASED BY THE ERASE 


- 














:THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 












BGNTST . 
CLR _—sFATFLG SCLEAR FATAL ERROR FLAG 
CLR  —s KTFLG HOLD oF KT ae 
#EPRT1 EPRI Y ERROR MESSAGE 
MOV =s«-#TST3210,RO I Tl MESSAGE ro IDENTIFY TEST 
JSR _—s PC, TSTSETUP T SETUP 
MOV —s-:« #1. LOOPENT RF ITERATIONS 
CLR T32CNT “CLEAR TAPE RECORD COUNTER 


+ 
TEST 4, SUBTEST 1 


: VERIFIES THAT A Erase And ration ere irty COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
ore THE NON-EXECUTABLE FUNCTION (NEF) 





em 


SEQ 161 


CZTUZAO TUBO FRONT E 
TEST 











6350 
6351 046670 
046670 













004 
103426 
046722 012727 
000000 
013727 


ND PRT D 
4: ERASE AND OPERATION INCOMPLETE 


002116 
177772 
177756 
051314 


56 
7 020070 


G 13 
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051314 


10$: 


208: 


258: 


26$: 











9236. of 
#140605 s.Ts2PK3 


PC, o sagnest 


PC ,SOF INIT 
0$ 
250 


T32DLY 
PC FATCHK 
ERRNO, SFIERR, SF IMSG 


#TS2PACKET RG 

PC URTCHR 

PC .FATCHE 

ERRNO, WRIMNSG, SF IMSG 


PC REWIND 
268 


ROR 

TSSRERS), RI 

PC .FATCHK 

ERRNO, TS2RUN, PKTSSR 








$>>>>>>>>>>>> Soar Seares! >>>>>>>>>>>> 











C$8SUB 
sSET COMMAND PACKET 
sSET UP OTHER COMMAND PACKET 
s oT wee COMMAND PACKET 
SET UP DELAY COUNTER 
300 INITIALIZE ON CONTROLLER 
3BR NI OK 
DELAY ABOUT .25 SEC 
#250, (PC)+ 
LSOLY,(PC)+ 
-6(PC) 
=22(PC) 
25 ERRORS 
CSERDF 
401 
SFIERR 
SF IMSG 





;SUBROUTINE NEEDS PACKET ADDRESS 
ISSUE WRITE CHARACTERISTICS 


C ISSUED OK 

>; INC CHECK FOR MORE THAN 25 ERRORS 
sSAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC —— 


VORD 402 

-WORD UWRTMASG 

- WORD 
sLOOP IF SELECTED 

TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 


“BR, IF NO 4 

°SET UP REWIND PACKET ADDRESS 

“GET TSSR CONTENTS 

SINC AND CHECK FOR MORE THAN 25 ERRORS 
[REWIND NOT ACCEPTED 
CSERHRD 


-WORD 403 
- WORD 
WORD 


















T32RWN 
PKTSSR 
CSCLP1 


sLOOP IF SELECTED 


; STARTING atte” SIZE 
SSTARTING WRITE BUFFER ADDRESS 
SURITE Lea eee ee 









CZTUZAO TUBO FRONT END PRT D 


TEST 4: ERASE AND OPERATION INCOMPLETE 
6392 047106 010337 051256 
6393 047112 010465 177776 
6394 047116 737 «017110 

395 047122 016501 000000 
047126 012702 000200 
6397 047132 020102 
6398 047134 0014 
6399 047136 004737 020070 
2 104457 
000624 
052336 
011670 
044 
005725 
20327 001002 
001351 
004737 010424 
103411 
ost 000000 
004737 020070 
LS net 
051500 
011670 
1044 
013701 051146 
010102 
052702 000002 
020102 
001406 
004737 020070 





140611 
051250 
7777 


7 017110 
000000 


000200 


020070 
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051250 


273: 


288: 


40S: 





R3,152SZ 
R4, TSOB(RS) 


PC.WA 
TSSRCRS) RI 
#SSn,R2 
R1,R2 


28% 
PC .FATCHK 


ERRNO, TS2WDC ,PKTSSR 


(R3)¢ 
R3,8514. 
PC REWIND 
ala 


RO, 
PC. FATCHK 
ERRNO, TS2RUN,PKTSSR 


T32BFR*6,R1 
#BiT1,R2 
R1,R2 


408 
PC .FATCHK 
ERRNO, TS2B0E , EXPREC 


#1640411, 132PK3 
#T32PK3.R4 

R4, TSDBLRS) 
PC.WAITE 
TSSRCRS) RI 

aSSR,R2 

cea 

Athy OPERA, PKTSSR 


ee nme ee = 


sSET UP RECORD SIZE IN PACKET 


WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
A+ UP EXPECTED 








sBR, 

SINC AND CHECK A MORE THAN 25 ERRORS 
sSOFT ERROR, DON’T CARE ABOUT WRITE 
SCOMMAND'S RESULTS = CHECKING THE 
ERASE COMMAND 

sTSSR INCORRECT AFTER a A DATA 



















CSERSOF T 
WORD 404 
«WORD T32WdC 
«WORD PKTSSR 
sLOOP IF SELECTED 
CSCLP1 
sBUMP RECORD COUNTER 
sa MAX _ YET 
IF NOT AT END OF LOOP 
:CALL TAPE REWIND COMMAND 
F WO PROBLEM 
GET TSSR CONTENTS 
3SET UP ee PACKET ADDRESS 
: HECK FOR MORE THAN 25 ERRORS 





AND C 
SREWIND NOT ACCEPTED 





32RWN 
PKTSSR 





:LOOP IF SELECTED 








TRAP CSCLPI 
sPICK UP XSTO 
SET UP EXPECTED 
sSET BOT BIT IN ‘ees 
:DOES 
:BR, IF EQUAL (OK) 
INC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE AT BOT AFTER ERAS 
TRAP CSERHRD 
e 406 
WORD T32B0E 
WORD EXPREC 
sLOOP IF SELECTED 
CSCLPI 


sERASE TAPE.CVC=1.ACK COMMAND 
sSET UP R& WITH PACKET ADDRESS 





SINC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER “oy — 


SEQ 165 | 


A ar TUBO FRONT END PRT D 


TEST 





06 
051146 


000002 


020070 


04406 
4 003072 


140401 
00 


0004 
704 051250 
17777 


6 
017110 
000000 
100204 


020070 


051154 


702 000001 


020070 
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ERASE AND OPERATION INCOMPLETE 


051252 
051250 
051256 


508: 


558: 


180$: 


190$: 





ENDSUB 


Ljepenes at 
#eiti, ae 
R1,R2. 


55 
PC FAT 
ERRNO, T32B0E , EXPREC 








FREE ,132RB 
3 ge PS ate 


ved Per ITF 

RCRS) RI 
BSShiSC'B1T2,R2 
R1,R2 





1 
PC .FATCHK 
ERRNO, TS2TSA,PKTSSR 


TS2BFR*14 ,R1 


R1LR 
meit0.n2 
1908 
PC,FAT 
ERRNO, TSORIB,EXPREC 


A A OE OL AD 


«WORD 407 

«WORD TSZERA 

-WORD PKTSSR 
sLOOP IF SELECTED 

TRAP CSCLPI 


sPICK UP XSTO 

:SET UP EXPECTED 

3SET BOT a -¥ IN EXPECTED 
sDOES EXP = REC*D 


:8R, IF EQUAL OK) 
i IMC AND CHECK FOR MORE THAN 25 ERRORS 
; TAPE NOT AT BOT AFTER — 








;LOOP IF SELECTED 
sADDRESS OF 





TRAP 


BUFFER 
SREAD REVERSE, ACK,CVC=1 COMMAND 
;SET UP THE SIZE OF RECORD 





SET UP R4 WITH PACKET ADDRESS 











sWAIT FOR ll TO SET 
GET TSSR C $ 
sSET 4 EXPECTED TAPE STATUS ALERT 
BR, iF 0 
3 INC AND CHECK FOR MORE THAN 25 ERRORS 
sTSSR INCORRECT AFTER READ DATA 
TRAP CSERHRD 
«WORD 409 
. TS2TSA 
WORD PKTSSR 
sLOOP IF SELECTED 
RAP CSCLP1 





ctr XST3 STATUS WORD 
XPECTED 


EQUAL (G00D) 
ae AND CHECK ast MORE THAN 25 ERRORS 
TRAP 
-WORD 
- WORD 
- WORD 
:>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
110054: 


CSESUB 











SEQ 164 
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TEST 4: ERASE AND OPERATION INCOMPLETE 


SEQ 165 














































6486 3¢ 

6487 : 

ons sTEST 4, SUBTEST 2 

6490 : VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE 1S NOT 

6491 : POSITIONED AT BOT OPERATES PROPERLY AND DOES T CORRUPT 

G492 ; PREVIOUS TAPE RECORDS. THE TEST SEQUENCE | 

6494 : 1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 

G95 ; WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

6497 ; 

5498 : 2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 

6499 ; TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 

pete) : RECORDS. 

6502 ; 3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 

6505 ; OF THE TEST RECORDS. 

6505 ; &. WORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

6507 3 5S. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 

6508 : NORMAL TERMINATION IS ACCOMPLISHED D AND THAT THE DATA 

6509 ; TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 

6510 : RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 

6511 ; IN THE AREA ERASED BY THE ERASE COMMAND, THE 

632 : PREVIOUS RECORD WAS NOT CORRUPTED. 

6514 : 

6515 : 

6516 : 

6517 : 

at : 

6520 paths 3>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
047506 104402 TRAP  CS$BSUB 

6521 047510 004737 052500 JSR PC, T32REST sSET COMMAND PACKET 

6522 047514 006737 052572 JSR PC, T32RT2 3SET UP OTHER COMMAND PACKET 

6523 047520 004737 052622 JSR PC, TS2RTS °SET UP OTHER COMMAND PACKET 

6524 047524 004737 016634 JSR PC. SOF INIT *DO INITIALIZE ON CONTROLLER 

6525 047530 103407 BCS °BR IF INIT WAS OK 

6526 047532 004737 020070 JSR PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

6530 047536 010001 MOV RO,R1 : CONTENTS OF TSSR REGISTER 

6531 047540 ERRDF ERRNO, SFIERR,SFIMSG SFATAL ERROR TSSR WAS NOT OK 
047540 104455 TRAP CSERDF 
047542 000633 eWORD 411 
047544 003550 -WORD SFIERR 

7546 011656 .WORD  SFIMSG 

6532 047550 208: 

6533 047550 012704 051120 MOV @T32PACKET,R4 sSUBROUTINE NEEDS PACKET ADDRESS 

6534 047554 004737 010322 JSR PC,WRICHR S ISSUE WRITE CHARACTERISTICS 

6535 047560 103407 BCS 238 “BR, IF COMMAND ISSUED OK 

6536 047562 004737 020070 JSR —s PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 

540 0647566 010001 “SAVE C 






6 MOV RO,R1 ONTENTS OF TSSR 
6541 pote ERRHRD ERRNO,WRIASG, SF IASG SWRITE CHARACTERISTISC iog 











TN ad TU8O FRONT END PRT D 
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238: 


308: 


40S: 


051252 
051250 65S: 


TEST : ERASE AND OPERATION INCOMPLETE 
75 
047574 004754 
047576 011656 
6542 047600 
047600 104406 
6543 047602 004737 010424 
6544 047606 103407 
6545 047610 010004 
6546 047612 004737 020070 
6550 047616 
047616 104456 
000635 
051500 
4 011670 
104406 
013701 051146 
010102 
052702 000002 
020102 
001406 
004737 020070 
104456 
36 
051316 
16334 
06 
012705 000144 
10300 
737 020362 
013737 003072 
012737 140005 
12704 051250 
010300 
737 020362 
010337 051256 
010465 177776 
004737 017110 
016501 000000 
012702 000200 
020102 
001406 
737 020070 
104457 
000637 
052336 
011670 
1 
00572 
020327 000156 





SBgseeseyessscss = 
sich biiehieichieiiahiall 


wm 
2 
w 
™ 


CKLOOP 


TST 
CAP 


43 — 


RO,R4 
PC .FATCHK 
ERRNO, TS2RWN,PKTSSR 


T32BFR+6,R1 

R1,R 

#B1T1,R2 
R1,R2 






PC .FATCHK 
ERRNO, T32BOT ,EXPREC 


#100. .R3 
PC FILLRER 


eia0605.18 TS2PK3 


4g 
PC .FILLMEN 
r3,13282 
n4, TSOB(RS) 
TSSR(RS) RI 
+ oe 
80% 


PC .FATCHK 














ERRNO, TS2UDC ,PKTSSR 


(R3)+ 
r3411C 


412 
WRTMSG 
SF IASG 


sLOOP IF SELECTED 
TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 
Set UP REWIND PACKET ADDRESS 
CHECK FOR 


NC AND CHE MORE THAN 25 ERRORS 
REWIND NOT ACCEPTED 











sLOOP IF SELECTED 


sPICK UP xSTO 

;SET UP EXPECTED 

SET BOT BIT IN EXPECTED 
S EXP = REC*D 





TRAP 






(OK) 
z IM AND CHECK FOR MORE THAN 25 ERRORS 
TAPE NOT AT BOT AFTER = 








- WORD 
sLOOP IF SELECTED 


sSTARTING RECORD SIZE 
sSET UP = FILL 
CALL MEMORY FILLER 

+ STARTING WRITE BUFFER ADDRESS 
WRITE DATA, CVC=1.ACK COMMAND 
sSET UP R4& WITH P 








ACKET ADDRESS 
3SET PATTERN IN CORRECT REGISTER 
sPILL C SIZE 


L MEMORY WITH RECORD 
UP RECORD SIZE IN PACKET 





3BR, IF OK 

INC AND CHECK os MORE THAN 25 ERRORS 
:SOFT ERROR, DON'T CARE ABOUT WRITE 
SCOMMAND'S RESULTS - CHECKING THE 
sERASE COMMAND 

:TSSR INCORRECT AFTER 7. DATA 








CSERSOF T 
415 





T32wpc 
PKTSSR 


;LOOP IF SELECTED 
CSCLP1 


RAP 
sBUMP RECORD SIZE COUNTER 


-_—_ -_— <-- 


SEQ 166. 


} 
nani OL OL AL ALLL LLL LAL 


—_—— — ee OD 
——— ane = 


A A i A A A Lt ECE CT NNT 


Sh ard TU8O FRONT END PRT D 


Test 





000642 
051616 


010424 


020070 


051146 
000002 


020070 
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: ERASE AND OPERATION INCOMPLETE 


051250 


051252 
051250 
051256 


2308: 


240S: 


265$: 


280$: 


CKLOOP 








JSR 
ERRHRD 


RS 
PC,HA 
ERRNO. TS2RWN , EXPREC 


T32BFR+6,R1 

pitt .R2 

2408 

PC FATCHK 

ERRNO, TS2BOT ,EXPREC 


4 a 

eidoeli. E 1 32PK3 
aT32PK3, RG 

+t TspB(R5) 

PC. WAITE 

TSSRCRS) RI 

@SSR,.R2 

R1R2 

2 

PC.FA 

ERRNO, TFSOERA, PKTSSR 


FREE, 132RB 
#140401, 132PK3 
#100. ,13252 
#T32PR3_R4 
Rd, TSB (RS) 
PC WAIT 
SeReRS), Ri 
+i ie 
290$ 
PC FAT 
ERRNO, TSOTSA,PRTSSR 





sBR, IF MORE RECORDS TO WRITE 
CALL TAPE at ay ND COMMAND 
38R, IF NO PROBLEM 

SAVE T 


R 
CHECK FOR MORE THAN 25 ERRORS 
TR 






s INC AND 
SREWIND NOT ACCEPTED 


CSERHRD 
. 16 
° T32RWN 
EXPREC 
sLOOP IF SELECTED 
TRAP = CSCLP1 
sPICK UP XSTO 
SET UP EXPECTED 
;SET BOT BIT IN ‘ oomoud 
;DOES EXP = REC'D 
sBR, IF EQUAL (OK) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 


[TAPE NOT AT GOT AFTER REWIND 

TRAP 
- WORD 
WORD 











sLOOP IF SELECTED 
TRAP 


sSET UP FOR SPACE COMMAND 
ISSUE SPACE COMMAND 1 FORWARD 
sERASE DATA,ACK COMMAN. 

SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 
sWAIT FOR SSR TO SET 














sBR, IF OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER READ DATA 
TRAP CSE 
WORD 418 
WORD TSZ2ERA 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 


sADDRESS OF BUFFER 
READ REVERSE ,ACK.CVC=1 COMMAND 
3SET THE SIZE 


UP ORD 
:SET UP R4 WITH PACKET ADDRESS 


s ISSUE COMMAND 

WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 
3SET : EXPECTED TAPE STATUS ALERT 
sARE THEY EQUAL 


:BR, IF OK 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
STSSR INCORRECT AFTER == DATA 
TRAP CSERHRD 
it 





_— am 


SEQ 167. 


Re Te 


— nr 


CETuea TU8O FRONT END 


TEST 


050. 
6651 pin ba 
6652 050272 
66535 050272 

050272 

050272 


052111 
011670 


ND PRT D 


290$: 
06 

132626 
2 000144 


020070 


300$: 
330$: 


JSR 
ERRHRD 


CKLOOP 


@FRte ,R1 


PC .FATCHK 
ERRNO, TS2ECF ,EXPREC 
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: ERASE AND OPERATION INCOMPLETE 


«WORD T32TSA 

-WORD PKTSSR 
;LOOP IF SELECTED 

TRAP CSCLP1 


sGET DATA READ 
3 SHOULD 100 
tha a Neal 
SINC AND CHECK FOR ne THAN 25 ERRORS 
HE RASE COMMAND DIDN'T WORK 
CSERHRD 
420 
T32ECF 
EXPREC 
TRAP CSCLPI 
§2>>2>>>>9>>>> a >>>>>>>>>>>> 
L 


: CSESUB 











sLOOP IF SELECTED 


SEQ 168° 


a ee OO SS 


eee oe 
oor . 


ee ESS See 


eR RE ES ~ - 
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SEQ 169° 
TEST 4: ERASE AND OPERATION INCOMPLETE : 











6655 3¢ 

6656 : 

$697 sTEST 4, SUBTEST 3 

6659 ; VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR 

6660 ; EXECUTED BEYOND TH MARKER, CAUSES TAPE STATUS ALERT 

6661 ; ERMINATION WITH THE Sor STATUS BIT SET. ALSO VERIFIES THAT THE 

6662 - a OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE T 

6663 : RESULT IN UNRECOVERABLE ERROR TERMINA AND OPERATION 

oes ; INCOMPLETE STATUS. THE FOLLOWING 1ST SEQUENCE 1S EXECUTED: 

rr : 1. THE TAPE 1S REWOUND. 

6668 ; 2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 

6669 ; 1s SEEN. AN fi OR 1S REPORTED IF ANY TERMINATION OTHER 

6670 : AN NORMAL (WITH EOT=0) OR TAPE STATUS ALERT (WITH 

6671 : rOT=1) 1S ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 

6672 : DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 

6673 ; THIS 1S REPORTED AS A FATAL ERROR AND THE Test 1S 

poh : ABORTED. 

6676 ; AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 

6677 ; VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 

cere : WITH EOT=1. 

6680 ; IT 1S VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 

6681 ; (ISSUED IN THE ORDER GIVEN) RESULTS IN UNRE COVERABLE 

6682 ; SPACE RECORDS REVERSE 

6683 : 

6684 : 

6685 ; 

6686 ; 

6687 : DATA RETRY 

6688 : 

6689 ; 

6690 3 

pret : 

6693 ph BGNSUB 2>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 
050274 104402 TRAP  CSBSUB 

6694 050276 004737 052572 9$: JSR PC, T32RT2 :SET UP OTHER COMMAND PACKET 

6695 050302 004737 052500 JSR PC TSOREST COMMAND PACKET 

6696 050306 004737 052622 JSR PC, T32RTS SET UP OTHER COMMAND PACKET 

6697 050312 012737 176750 051314 MOV #65000. ,T32DLY “SET UP DELAY COUNTER 

320 006737 016634 10$: JSR PC, SOF INIT :D0 INITIALIZE ON CONTROLLER 
6699 050324 103426 BCS 208 : INIT WAS OK 
6700 050326 DELAY 250 DELAY ABOUT .25 SEC 
326 012727 000250 #250, (PC)+ 

050332 000000 WORD 
050334 013727 002116 MOV LSDLY,(PC)+ 
050340 000000 ~ WORD 
050342 005367 177772 DEC -6(PC) 
050346 001375 BNE 74 
pest 005367 177756 DEC =22(PC) 


050 001367 BNE 7-20 
6701 050356 051314 eames 





A ad TUB8O FRONT END PRT D 


TEST 


6702 050362 
6703 050364 
6707 050370 
6708 ey ts 


6709 050402 


6736 050504 
6740 050510 
050510 
050512 
050514 
050516 

6741 050520 
050520 

6742 050522 


001356 
004737 
010001 
104455 

5 


00064 
003550 
011656 


1500 


$763 050530 012704 
744 050534 


6 

6745 050549 
6746 050544 
6747 050550 


6748 050554 012702 


6749 050560 
6750 050562 
6751 050564 


010102 


020070 


051120 


7? 010322 


020070 


051146 
000002 


020070 


MACRO M1200 


: ERASE AND OPERATION INCOMPLETE 


208: 


238: 


30S: 


40S: 
051250 65S: 


BNE 
JSR 
MOV 
ERRDF 
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10 
PC, FATCHK 
EORNO, SFIERR, SF IMSG 


#T3S2PACKET RG 
BCAMRTCHR 

PC ,FATCHK 

ERRNO, WRTMSG, SFIMSG 


PC ,REWIND 
TSSRCRS) RI 
RO,R4 


PC. FATCHK 
ERRNO, TS2RWN, PKTSSR 


TS2BFR¢6,R1 
R1,R 

#B1T1 ,R2 
R1,R2 


PC .FATCHK 
ERRNO, T32BOT ,EXPREC 


#140611, TS2PK3 
#T32PK3,R4 

a3. 13282 

R4, TSDB(RS) 


PC WAL 
TSSR(RS) RI 
#SSR,_R2 
R1_R2 

65$ 


R1R 


sBR. IF gt NOT DONE 
HECK F E THAN 25 ERRORS 


AND CHEC 
CONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS a”: 










SUBROUTINE NEEDS PACKET ADDRESS 
s ISSUE WRITE CHARACTERISTICS 


a o Is 

; INC AND a FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF T 

SWRITE CHARACTERISTISC —- 








- WORD 

-WORD UWRTASG 

-WORD SFIMSG 
sLOOP IF SELECTED 

TRAP CSCLP1 


sCALL TAPE ay COMMAND 


BR, IF NO PROBLEM 

iGET TSSR CONTENTS 

GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 





CSERHRD 
423 
T32RWUN 
PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLPI 
sPICK UP xSTO 
sSET UP EXPECTED 
sSET BOT BIT IN EXPECTED 
sDOES EXP = REC'D 
sBR, IF E 


) 
MORE THAN 25 ERRORS 


sINC AND CHECK FOR 
:TAPE NOT AT BOT AFTER REWIND 
TRAP CSERHRD 
WORD 424 
WORD T52B0T 
D EXPREC 
sLOOP IF SELECTED 
CSCLP1 


s ERASE gee =1,ACK COMMAND 
sSET UP R4& WITH PACKET ADDRESS 
:SE1 UP RECORD SIZE IN PACKET 


COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
SARE Ha Y EQUAL 












a ( 


ww FF Ww 


om aa 


— ene 


TEST 4: 





CZTUZAO TUSO FRONT END 


6752 050566 04270 


133701 
1410 


00 
010201 
004737 








ND PRT D 


177760 
000004 


020070 


051146 
000001 


020070 


000250 
002116 
177772 
177756 


7 0513514 


020070 








051252 


051256 
051314 


240S: 


265$: 


270$: 


22858838 
S 


how 


l | 
messy 


o 
a 
| ol 
> 
a 


DEC 


JSR PC .FATCHK 
ERRHRD ERRNO, TS2ECF ,PKTSSR 


Ri 


#177760 
#BiT2,R1 


R? ve 
PC.FA 


ERRNO. TS2u0C, PKTSSR 


65$ 


TS2BFR+6,R1 
#BiTO,R2 
R1,R2 


PC ,FATCHK 
ERRNO, TS2EOT ,EXPREC 


#T32CMD,R3 
E.T32RB 








PC ,WALTF 
TSSRC(RS) 


250 


T32DLY 
2708 


C 14 
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ERASE AND OPERATION INCOMPLETE 


Ah 
ene ame 


;BR, 
RESTORE Rt FOR ERROR ‘got 
C AND CK 


QUAL 
INC AND CHECK 


sLOOP IF SELECTED 


ONLY SAVE 4 


BITS 
i CHECK FOR REAL TAPE ha Pal 


REAL TAPE STATUS ALER 


; IN CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER unite: I gage 





;KEEP GOING 
sLOOP IF SELECTED 


sPICK UP XSTO 
SET UP 


EXPECTED 
SET EOT BIT IN EXPECTED 
sDOES EXP = REC*D 


= 
OR MORE THAN 25 ERRORS 
;TAPE NOT AT EOT OAFTER a ~ Pee 








TRAP 
i STARTING, READ BUFFER ADDRESS 


CSCLP1 


STARTING RECORD SIZE 





eACK COMMAND 
SET uP ARs "WITH PACKET ADDRESS 


3SET PATTERN IN ey REGISTER 


sFILL MEMORY WITH ALL ONES 
SET UP RECORD SIZE IN PACKET 
s ISSUE COMMAND 


:SET UP DELAY COUNTER 








SET UP EXPECTED 
ARE THEY EQUAL 


3BR, IF OK 
:DELAY FOR SSR TO BE SET 


MOV #250, (PC)+ 
WORD 
MOV LSDOLY,(PC)+ 
WORD 
DEC -6(PC) 
BNE 74 
DEC ~22(PC) 
BNE -- 
sCOUNT DELAY ROUTINE DOWN 
:BR, 'F DELAY HAS NOT ENDED 
THAN 25 ERRORS 


:INC AND CHECK FOR MORE T 2 
:TSSR INCORRECT AFTER READ DATA 
TRAP er 


"WORD 4 
WORD TS2ECF 
ORD _PRISSR 


SEQ 171 


—_—o— * 





Th ag TU8O FRONT END PRT D 


MACRO 1200 


Test : ERASE AND OPERATION INCOMPLETE 
6796 051022 
051 


6814 

6815 051072 004737 

6816 051076 

6817 051100 000137 

6818 051104 
051104 
051106 001536 





051154 
000100 


020070 


177777 


017344 
046670 


280$: 


163$: 


D 14 
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CKLOOP 


EXIT 


be aia ol 
#B8116,R2 
R1,R2 


$ 
PC .FATCHK 
ERRNO, T320P1 ,EXPREC 


(R3)¢ 
(R3) #177777 
2658 


PC, TSTLOOP 
163$ 
1S2L00P 


;LOOP IF SELECTED 


sPICK UP XSTS 

SET UP EXPECTED 

;SET OPI BIT IN EXPECTED 

:1S OPI Bit SET 

sBR, IF BIT IS SET 

7 INC AND CHECK FOR MORE THAN 25 ERRORS 


;0P1 BIT NOT SET 
TRAP CSERHRD 
«WORD 4 
«WORD Tf i 
WORD EXPREC 


CSCLP1 


TRAP CSCLP1 


;LOOP IF SELECTED 


sBUMP COMMAND POINTER 

cAT END OF TABLE YET 

“BR, KEEP TRYING COMMANDS 

5 >>>>>>>>>>>> oa >>>>>>>>>>>> 
L 











CSESUB 
:D0 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
sENECUTE AGAIN 
ALL DONE THIS TEST 
TRAP CSEXIT 


WORD 110055-. 


SEQ 172 


A - _ 





& 


Oo oOo o 
RARRABAARADRD 
SSFUSSSRNSSs 


683 
6836 05 
68 


6874 051312 
6875 051514 


CZTUZAO TUSO FRONT END 
TEST 





PRT D 
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4: ERASE AND OPERATION INCOMPLETE 


3: 
sLOCAL STORAGE FOR THIS TEST 








-BLKB 1%-<,-TUV2AR7> 
T32PACKET: 

‘ 100004 

WORD TS32DATA 

-WORD 0 

eWORD 10. 
T32DATA: 

WORD TS2BFR 

-WORD 0 

WORD 20. 

WORD 0 
T32BFR: .BLKW 25. 
SWRITE SUBSYSTEM MEMORY COMMAND PACKET 

-BLKB 10-<.-TUV2AE7> 
T32PK2: 

-WORD 100006 

WORD 0 

WORD 0 

-WORD 6. 

-BLKB 10-<.-TUV2AE7> 
T32PK3: 

WORD 100005 
T32RB: 
T32W8: .WORD FREE 

-WORD 0 
T32SZ: .WORD 0 

EVEN 
sTAPE MOTION PACKET COMMAND VALUES 
T32CMD: 

WORD 40410 

-WORD 141410 

WORD 40401 

-WORD 141001 

-WORD 161401 

WORD 61001 

WORD 141401 

WORD 40001 

WORD 141410 

WORD 141010 

WORD 1005 

WORD 177777 
T32CNT: .WORD 0 
T32CNU: .WORD 0 
T32DLY: .WORD 0 






















COMMAND PACKET FOR TEST 


SWRITE CHARACTERISTICS COMMAND, WITH , 
SADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
; CHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 








;WRITE SUB SYS MEM COMMAND, AND A 
ADDRESS OF SELECT BLOCK DATA 


SIZE OF DATA PACKET 


REREAD COMMAND, AND ACK 
sADDRESS OF WRITE SUFFER 
sSIZE OF BUFFER (EXTENT) 


arr RECORDS REVERSE 





sREREAD 
;REREAD 7 (OPP=0) 
READ NEXT 
:SKIP TAPE MARKS REVERSE 
SKIP RECORDS FORWARD 
SWRITE DATA RETRY 

OF DATA 














sTAPE TIMER COUNTER STORAGE AREA 


TAPE TIMER COUNTER STORAGE AREA 
DELAY COUNTER 


SEQ 173, 








CZTUZAO TUBO FRONT END PRT D 


TEST 
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4: ERASE AND OPERATION INCOMPLETE 


6877 
6878 
6879 


6880 
6881 
6882 

68835 051316 





3;¢ 
sLOCAL TEXT MESSAGES FOR TEST 























SEQ 174. 


"Tape Not At BOT After REWIND Command (BOT Not Set In xSTO)° 
"Tape Status Alert During Erase To EOT, Gut EOT Not Set’ 


Not Acc 






ted 
: 








ommand 
"READ REVERSE, After ERASE From BOT, Failed To Set RIB In xST3° 





"BOT (XSTO) Still Set After Erase From Tape’’s GOT Marker’ 
"ERASE Failed To Clear Tape (Erase) Tape Property’ 


sSAVE THE REGISTERS 

START OF THE PACKET 

SUBSYSTEM MEM. WITH ACK, 

: SS OF CHARAISTICS DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA BLOCK IN BYTES 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sSELECT ORIVE ZERO 


NUMBER OF LOCATIONS TO GE CLEARED 
SAGE BUFFER 


















OF LOOP YET 
sKEEP GOING UNTIL DONE 
> RETURN 


sSAVE THE REGISTERS 
sSTART OF THE PACKET 

ITE SUBSYSTEM MEM. WITH ACK, 
sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 





160 12 

160 iz 

167 SCIZ ‘Rewind (POSITION) C 

123 SCIZ ‘TSSR Init. Failed After REREAD C 

123 C1Z ‘“TSSR Not Correct After ERASE Command 

Ms tt "TSBA Not Correct After REREAD DATA C 

123 12 ‘TSSR Not Correct After SPACE RECORDS C 

‘“ + *TSSR Not Correct After READ REVERSE into BOT’ 

101 12 

123 T32WDC: .ASCIZ ‘TSSR Not Correct After ERASE Command’ 

111 =T320PI: C12 ‘OPI Bit (xXST3) Failed To Set’ 

141 TST32I1D: eASCIZ ‘Erase And Operation Incomplete’ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 

052504 #TS2PACKET RI 

#100006 ,(R1)¢ sURITE 

6910 052514 STS2DATA, (R1)¢ s ADDRE 
6911 052520 1+ 
6912 052522 
6913 052526 
6914 052532 
6915 052534 
6916 052540 
6917 052542 
6918 052546 #24. ,R2 ; 
6919 052552 051140 64S: #177777 , T32BER(R2) ; 
6920 -(R2) e 
6921 052562 #0,R2 sAT END 
6922 052566 64$ 
6923 052570 PC : 
6924 
6925 
6926 052572 T32RT2: 
6927 052572 
6928 052576 #T32PK2.R1 : 
ae 052602 #100006, (R1)+ $ 
6930 052606 (R1)¢ 
6931 052610 CRID* 

052612 #6. ,(R1)¢ 

052616 1)¢ 











sSIZE OF DATA BLOCK IN BYTES 


——— -— ae a raga“  ..2n0 _ 


CZTUZAO TUBO FRONT END PRT D 
TEST 4: ERASE AND OPERATION INCOMPLETE 


6934 052620 


000207 


ne 


051250 





at 
T32RT3: 





G 14 


MACRO M1200 29-MAR-835 15:43 PAGE 101-1 


PC 


#t32PK3,R1 
(Ride 





sSAVE REGISTERS 
4; i UP POINTER ADDRESS 


sADDRESS OF DATA BLOCK 
sEXTENDED ADDRESS 

sSIZE OF DATA TRANSFER BLOCK 
; RETURN 





110053: 
TRAP 


CSETST 


SEQ 175. 


} 


— tee 


o-- LL LL CLE LE  LL AL 











CZTUZAO TUB8O FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 





PEPEREESTESEEREES ET EE 





00000 
055542 





002146 


002164 
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~SBTTL TEST 5: OPERATIONS AT EOT 


by 


STHIS TEST VERIFIES PROPER OPERATION OF Lp WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA 


THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 


BGNTST ies 

CLR FATFLG CLEAR FATAL ERROR FLAG 

CLR K HOLD OFF KT11 

MOV #EPRTT ,EPRTSW sPRIMARY ERROR 

MOV #TS D.RO zASCII MESSAGE TO IDENTIFY TEST 
JSR PC ,.TSTSETUP 3:00 INITIAL TEST SET 

MOV #1 ,LOOPCNT PERFORM 1 ITERATIONS 

CLR TS4CNT sCLEAR TAPE RECORD COUNTER 


-¢ 


STEST 5, SUBTEST 1 





THIS TEST VERIFIES THAT THE EOT S1ATUS IS HANDLED PROPERLY BY 
I car — MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 


1. THE TAPE IS REWOUND. 


2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
ln gl ALERT TERMINATION IS SEEN WITH EOT=1. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED, SO THE TAPE ENDS UP WITH GOOD DATA. 


ANOTHER WRITE DATA COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT=1. 


4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT=1. 


5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED, AND IT IS 
CHECKED TWAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
= 


6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, I$ IS IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS, WITH EOT=1 AND TMK=1. 


7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1, D, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT=1. 

















© Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se @e @e Ge Ge Se Ge Ge Ge Ge Ge Se Se 
ket 
& 


& FA JRL J WAR b Vis wa!’ ’ . Jk ' . OF . 


SEQ 176 


~ ~ —— — «eee ee ee eee 


LL LL —_—_-_- ——_—_-— _ 
=~ 


1 14 
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TEST 5: OPERATIONS AT EOT 





SEQ 177 








7007 5 1, 1S ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
7008 : OCCURS, WITH EOT=1. 

7010 : A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
La § THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 

7013 ; A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
ime 3 THAT NORMAL TERMINATION OCCURS, WITH EOT=1. 

7016 : A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
7017 ; ;. Is I , AND IT IS CHECKED THAT NORMAL TERMINATION 
Ls dy ; OCCURS, WITH "e0T=0. 

7020 : A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 
7021 ; 3, 1s , AND IT IS CHECKED THAT NORMAL TERMINATION 
a 3 ; OCCURS, WITH *e0T=1. 

7024 : 13. A SKIP FILE MARKS REVERSE (oe 1S ISSUED, WHICH 

7025 : SHOULD SKIP ALL THE WAY TO , AND IT IS CHECKED THAT 
7026 3 TAPE STATUS ALERT SEMRINATION OCCURS, WITH EOT=0, 

7027 ; BOT=1, AND R1IG=1. 

7028 $ 

7029 ; 

7030 3 

7031 3 

7032 = 

7033 


7034 052706 T34L00P: 


———EE een 


— eee ne nnd 








CZTUZAO TUBO FRONT END PRT D 


7057 
7058 
7059 052706 
052706 
052706 104402 







7067 
7068 052710 004737 










TEST 5: OPERATIONS AT EOT 


057614 
7069 052714 057750 
7070 052720 004737 057706 
7071 052724 176750 
7072 052732 016634 
7073 052736 
7074 052740 
052740 000250 
002116 
177772 
177756 
000000 
000200 
7078 053002 7 055544 
79 05 
7080 053010 7? 020070 
7084 





053014 
7085 053016 








eee ee rm ee —— 
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055544 


+ 


:TEST 5, SUBTEST 1 


:VERIEIES THAT WRITING OVER THE END-OF-TAPE (EOT 
MARKER CAUSES TAPE STATUS ALERT TERMINATION. iF THE 
TRANSPORT DOES NOT RECOGNIZE THE EOT MARKER, T 












s TRANSPORT WILL BU LL NO 
THE END 7 THE REEL BUT THE TRANSPORT MUST BE 
SMANUALLY PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
3 FATAL DIAGNOSTIC ERROR. 
























BGNSUB 3>>>>>>>>>>>> — >>>>>>>>>>>> 
TRAP C$BSUB 
jeesenenennnenenerenenneceanensccnanaeencencccccosesnnaasassnanssensess 
SET UP THE PACKET BUFFERS AND WAIT LONG TIME FOR SSR 
THEN ISSUE A SOFT INITIALIZE 
jeeneenennanananeececencnaessececscccesssnccnansasnsenanaasenessceneess 
JSR PC,T34REST SET COMMAND PACKET 
JSR PC. TSERTS “RESTORE PACKET 
JSR PC. TS4RT2 °SET UP OTHER COMMAND PACKET 
MOV #65000, 1340 LY “SET UP COUNTER 
10$: JSR PC, SOF INI =DO INITIALIZE ON CONTROLLER 
BCS 208 BR IF INIT WAS OK 
DELAY 250 “DELAY A WHILE 
MOV #250, (PC)* 
WORD 
mOV LSDLY, (PC)+ 
.WORD 
DEC -6(PC) 
BNE 4 
DEC =22(PC) 
BNE .-20 
MOV TSSR(RS) RI GET TSSR STATUS 
BIT aSSR,RI “CHECK FOR SSR SET 
BNE 20% “BR, WHEN SSR IS SET 
DEC TSQDLY COUNTER DOWN 
BNE 10$ “BR, IF MORE DELAY REQUIRED 
JSR PC. FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ROV SCONTENTS OF TSSR aecisten 





SEQ 178 


F ERRNO, SFIERR —_—— . 


———— aE 
- 


ee ee ee 


TEST 5: 


053016 


053020 
053022 
053024 


7086 053026 
053026 


33> 
SELF 


YIVYYYBIII> 
Searun=s 


AS 
wet 
a 
= 
© 


05 
7122 053112 

053112 
7123 


YWIVVIAIIIYS 
USSSSSLERE 





104455 
000765 


12737 
aiS73r 





CZTUZAO TUSO FRONT END PRT D 
OPERATIONS AT EOT 


055400 
010522 


020070 


140005 
006654 





ST _— dee 
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05 


13737 003072 o2 








5530 
5532 
5536 


TRAP CSERDF 
«WORD 501 
-WORD SFIERR 
WORD SFIMSG 
208: CKLOOP ;LOOP IF SELECTED 
RAP CSCLP1 


: ISSUE A WRITE CHARACTERISTICS COMMAND TO CONTROLLER 


eS ee 


MOV #TS4PACKET .R4 SUBROUTINE NEEDS PACKET ADDRESS 
JSR PC ,WRICHR ISSUE WRITE CHARACTERISTICS 
OMMAND ISSUE 


BCS sBR, IF C 
AND CHECK FOR MORE THAN 25 ERRORS 











JSR PC .FATCHK ; INC 
MOV RO,R1 sont CONTENTS OF TSSR 
ERRHRD ERRNO, WRTIMSG, SF IASG WRITE CHARACTERISTISC — 

















30$: CKLOOP sLOOP IF SELECTED 


TRAP 


Sess eich tari a aaa eral need 


SRAASSAHAEKRAAAHEARAASHAAASTAAAASAAAAAAAAASARAAASAAAAARASASSAAAASAAAATARAAATAAAE 


JSR «PC, REWIND SREWIND CALL 
acs 35$ “BR, IF TSSR IS OK (GOOD) 
MOV TSSRCRS) RI GET TSSR 
MOV “SET UP PACKET 
PC. FAT SINC AND CHECK FOR MORE THAN 25 ERRORS 


JSR 
ERRHRD ERRNO, TSERUN, PKTSSR 





TTSSR IS INCORRECT AFTER REWIND 
TRAP CSE 








35$:  CKLOOP LOOP IF SELECTED 

TRAP 
jeeeeneenneneneccenuacersnceeoesecansanenanasasnnnaacensncqaconensasens 
ISSUE A WRITE COMMAND, CHECK FOR ERRORS, THIS IS SO THAT THE 
: DRIVE WILL NOT JUST HANG IF AN ERROR OCCURS. 
seeeeeenereereceerenrererereereerarenaneeneeeneenreneeeneeneneeenanens 


MOV #140005 ,134PK3 SWRITE DATA, ACK, CVC=1 
MOV FREE, 134WB SET uP wai Te BUFFER ADDRESS 


‘4 
pS 











SEQ 179 


a ae a 


= 
—— = 
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CZTUZAO TUSO FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 











































7134 053136 012704 055550 MOV #T34PK3,R4 3R4 = POINTER TO PACKET 
7135 053142 010465 177776 368: MOV RG, TSDB(RS) s ISSUE COMMAND 
7136 053146 004737 017110 JSR sWAIT FOR SSR TO SET 
7137 053152 016501 MOV TSERCRs), Ri : 
0531 012702 000200 MOV #SSK,R 3SE 
7139 053162 020102 CMP OR ns SARE THEY EQUAL 
053164 001407 Bea isét3398 BR, IF ALL 1S WELL NO PROBLERS 
1 0531 004737 020070 JSR PC .FATCHK sINC AND CHECK FOR MORE THAN 25 ERRORS 
7145 053172 ERRSOFT ERRNO WRTERR,PKTSSR :TSSR INCORRECT AFTER ORITE. TAPE 
0531 104457 TRAP CSERSOF T 
053174 770 -WORD 504 
053176 005011 WORD pa 
05 011670 - WORD 
7146 053202 757 BR 36$ sBR, TO DO MORE CONTROLLED emITES 
7147 053204 398: CKLOOP sLOOP ON ERROR IF SELECTED 
05 104406 CSCLPI 
7148 
ns 
7151 s ReReeeeenaneeeereereenseeenerereneetenanenererenseneenereteetenseseset 
7182 $ 
at : ISSUE A WRITE COMMAND, KEEP GOING UNTIL TAPE STATUS ALERT 
7185 joueescnscenannecovensensoesonssesnccsnesocsasoosssansusenonsnsensesoes 
7156 3 
7157 053206 012737 140005 055530 MOV #140005 , T34PK3 sWRITE DATA, ACK, CVC=1 
7158 053214 012703 176750 MOV #6 sSET MAX NUMBER OF ok dota 
7159 053220 013737 003072 055532 MOV :SET UP WRITE SUFFER ADDRESS 
7160 053226 012737 006654 055536 MOV 3SET UP BUFFER 9 "G. 5K BYTES) 
7161 053234 012704 055530 MOV ° =R4 = POINTER TO 
7162 053240 010465 177776 40$: MOV R4, TSDB(RS) 31S COMMAND 
7163 053244 004737 017110 JSR PC ,WAITF sWAIT FOR SSR TO SET 
05 016501 GV TSSRCRS) RI :GET TSSR CONTENTS 
7165 053254 012702 000200 MOV @SSR,R2 :SET UP EXPECTED 
05 020102 CAP sé, RO ; 
7167 053262 001010 BNE 508 : 
68 053264 005305 DEC R35 ; 
053266 001364 BNE 403 
053270 004737 020070 JSR PC.FA i 
7174 053274 ERRD ERRNO. Teer, PKTSSR 
053274 104455 CSE 
053276 000771 TMORD 505 
053300 056745 WORD TS4ET 
75 053302 011670 -WORD PKTSSR 
7176 jeeeneeneeeeeesenenecssecneeoreecnecensnnnassnnnnaaaceneneaconennacens 
7177 ‘ 
ne : HAVE TAPE STATUS ALERT, NOW CHECK FOR EOT. IF NEITHER KEEP GOING 
7180 jenennsennnnenacenenencencorsneceenacenennnanaanenennnnacconnnnnnaacens 
7181 
7182 053304 032701 000004 gos: BIT #81T2,R1 sCHECK FOR TAPE STATUS ALERT 
7183 953310 001001 BNE 608 If SET 
7184 053312 00075 BR 40% =KEEP GOING 
7185 053314 013701 055426 60$: MOV T34BFR*6,R1 PICK UP xSTO 
7186 053320 010102 MOV R1,R2 SET ¥. EXPECTED 
7187 053322 J52702 000001 TO, PECTED - 








ween = ee 


"3 ae TUBO FRONT END PRT D 


5: OPERATIONS AT EOT 


7188 053526 
30 


7227 05 
7231 Oo aes 


05 
053456 





020102 

001402 

000137 053240 
104406 

012737 140005 055530 
013737 003072 055532 
012737 006654 055556 
012704 0555350 
010465 177776 
004737 017110 
016501 

012702 100204 
020102 

0014 

004737 020070 
104456 

000772 

056316 

011670 

104406 

013701 055426 
010102 

052702 000001 
020102 

001406 

004737 020070 
104456 

000775 

056404 

016334 

104406 
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CMP R1,R2 :WAS THE BIT ON 
BEQ 80$ iF aor ins FOUND 
JMP 408 KE REEP L 
80$:  CKLOOP LOOP iF POS ELECTED 
TRAP - CSCLP1 
Ban ne anne ee eceendnennneeneoeserenneonnneoeseoononsiee 


EEE ee 


ISSUE ONE MORE WRITE AFTER EOT DETECTED 


MOV #140005 , T54PK5 sWRITE er ACK, CvC=1 














MOV EE, 134uB *SET UP WRITE BUFFER ADDRESS 
MOV #3500. 1342 “SET UP BUFFER SIZE (4K BYTES) 
MOV #T34PKS,RG “RG = POINTER TO PACKE; 
MOV R4, TSDB(RS) SISSUE COMMAND 
JSR PC.WAITF “WAIT FOR $$R TO SET 
MOV TSSRCRS) RI °GET TSSR CONTE 
#SC'SSR'BIT2,R2 :SET 
R1,R2 ; SARE T 
BEQ “BR, If THEY ARE OK 
JSR PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34ET2,PKTSSR “WRITE TAPE AT EOT FAILED TO SET TSA 
TRAP  CSERHRD 
s 506 
“WORD T34ET2 
WORD  PKTSSR 
90$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
jeeenneuanensennenecerenauersenensorencensecncanansaassansnasesenness 
CHECK TO BE SURE EOT IS STILL SET, IT SHOULD BE 
« eneneeneencenteneeeecerereeereceeesenneeneneneeneeenneeceecseteneess 
MOV T34BFR+6,R1 sPICK UP XSTO 
MOV Ri, [SET UP EXPECTED 
BIS #B1T0,R2 °SET THE EOT BIT ON IN EXPECTED 
CMP R1,R2 SWAS THE BIT ON 
BEQ 1008 “BR, IF EOT WA 


WAS FOUND 
CK FOR MORE THAN 25 ERRORS 


JSR PC .FATCHK sINC AND CHE 
ERRHRD ERRNO, TS4ETN.EXPREC sEOT BIT (XSTO) NOT SET ‘ 


CSERHRD 
eWORD 507 
WORD TS4ETN 
-WORD EXPREC 
100$: CKLOOP sLOOP IF SELECTED 
TRAP CSCLP1 


e eeeeeeeeeaaeeeaeeeeeeereeeeeeeeeereeeneereeeneerererereneeereneeeeeses 


NOW ISSUE A WRITE TAPE MARK, STILL BEYOND EOT 


5 
‘ 
é 
‘ 
: 
senereeeneeeeeeeeceeereneeeereeeerenneseenereneeenetennecenesensenaeess 


SEQ 181 


an 


ee ceases ae cages et CT ET OL LD OL ELE LL LL LLL LID LL eee ee eee = - - 


5: OPERAT 


7240 053464 


80 053602 
» 7261 oeeete 


012737 
0 


056227 
011670 


104406 


013701 
2 


012737 
7 


104456 
000776 
057213 


CZTUZAO TUBO FRONT END PRT D 
TEST IONS AT EOT 


140011 055550 
055530 


020070 


055426 
000001 


020070 


1108: 


1208: 


141410 055530 
000001 0555352 


CKLOOP 
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#140011, T34PK5 
#T34PK3,RG 


RG, TSDBIRS) 
Po .WAILTF 


TS8k (R5),R 


bc tSSRtB112,R2 
R1,R2 


JSR PC ,FATCHK 
ERRHRD ERRNO, TS4WTM,PKTSSR 





sWRITE TAPE MARK, ACK, CVC=1 COMMAND 
3R4 = POINTER TO PACKET 


ISSUE COMMAND 

WAIT FOR SSR TO SET 
3GET TSSR CONTENTS 
iE vay EXPECTED 


HEY EQUAL 
sBR, IF STATUS IS GOOD (OK) 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
WRITE TAPE MARK FAILED 


CSERHRD 
«WORD 508 
«WORD T34WTM 
PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


j teanaaaaenennnennenenensensnccnenenecennnacsensennsaceesenensaaaess 


NOW CHECK TO BE SURE EOT IS STILL SET 


MOV 


CKLOOP 


T34BFR+6,R1 
R1,R2 
#B1T0,R2 
R1 ,R2 


SR PC,FA 
ERRHRD ERRNO, TS4ETO,EXPREC 


se cepecnebeenonebeneedeccescececeeesnbreneénenseneencoceesescesesoncore 


sPICK UP XSTO 
;SET UP EXPECTED 
SET THE et ah ON IN EXPECTED 


WAS FOUND 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
:EOT BIT (XSTO) NOT SET 


CSERHRD 
-WORD 509 
WORD T34ETO 
EXPREC 
sLOOP IF SELECTED 
TRAP CSCLP1 


© RERAAAAAARARARARAAAAESEAAAEAAAAAARAAAAAARAAAARAAAARAARARAAAARAEAAARARARAE 


NOW ISSUE A SKIP TAPE MARK REVERSE RIGHT BACK INTO THE JUST WRITTEN TM 


Phe tel T34PK5 


aTSaPKS RG 
Re -TSDBERS) 


PC WAI 
TSSR(RS) RI 
# 2 


JSR PC .FATCHK 
ERRHRD ERRNO, T54STM,PKTSSR 


RESAAAEAAAAAAAAAAAAAAAASAAAAARARAARAAARAAAAAAAAAAAAAAAARARARAAAAAAAAAATS 


:SKIP TAPE MARK REVERSE ACK,CVC=1 COMMAND 
sSET NUMBER (1) OF TMS TO SKIP 
:R4 = POINTER TO PACKET 


ISSUE COMMAND 
SWAIT FOR SSR TO SET 
GET TSSR So 


;SET UP EXPECT 


E THEY EQUAL 
BR, IF STATUS He GOOD (OK) 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
:SKIP TAPE MARK REVCRSE hon a 
_—" 


ORD IT 


SEQ 182 | 


— 


eel eae 


CEL LL LE AE I 


eee 


——_ = 


CETUEAS TU8O FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 


053652 011670 









oe te 
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7293 053654 
053654 104406 
7294 
7295 
7296 
7297 
7298 
7299 
7300 
7301 053656 013701 055426 
2 05 01010 
7303 053664 052702 000001 
053670 020102 
7305 053672 001406 
053674 004737 020070 
7310 053700 
053 104456 
053702 777 
053 057307 
055 016334 
7311 053710 
053710 104406 
731 
7313 
7314 
7315 
7316 
7317 
7318 
7319 053712 013701 055426 
055 01010 
052702 100000 
02010 
0014 
004737 020070 
104456 
1000 
56637 
016354 
104406 
012737 140410 055550 
012737 000001 055532 
0127064 055530 
010465 177776 
004737 017110 









000000 
100204 














.WORD PKTSSR 
130$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
TTTTTTTTTTTTTITITITTTTTITTTLLL TLE LLL 
EOT SHOULD STILL BE SET 
jeeennennnsnesenenncncenseeensnccneaensenncensensnencccacqoseecnaeers 
MOV T34BFR*6,R1 sPICK UP XSTO 
MOV sé R2 SSET UP EXPECTED 
BIS § #BIT0,R2 “SET THE ENT BIT ON IN EXPECTED 
CMP sé, R2 WAS THE BIT ON 
BEQ “BR, IF EOT WAS FOUND 
JSR —s- PC, FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34STE,EXPREC *EOT BIT (XSTO) NOT SET 
TRAP  CSERHRD 
.WORD 511 
“WORD  T34STE 
“WORD EXPREC 
140$:  CKLOOP SLOOP IF SELECTED 
TRAP  CSCLP1 
[eeeenereneeeenrereereereearreeereneneneneaeeeeteneneeeneeereneseereTs 
: THE TMK BIT SHOULD BE SET ALSO 
 Meeneenenenereeenereererereneenereneneeseneteneaneaereneneeeeaeeeteses 
: MoV T34BFR+6,R1 sPICK UP XSTO 
MOV . 3SET UP EXPECTED 
BIS § #B1115,R2 “SET THE TMK BIT ON IN EXPECTED 
CMP sé R2 WAS THE BIT ON 
BEO 150$ BR, IF T 





MK WAS FOUND 
INC AND CHECK FOR MORE THAN 25 ERRORS 


JSR PC .FATCHK 
ERRHRD ERRNO, TS4 TMK ,EXPREC ;TMK (XSTO) NOT SET 


150$: CKLOOP sLOOP IF SELECTED 





CSCLP1 


* seeaeeenraeereneeceraceenecenrecencernerececenenreceneeecereeceecenene 


; ISSUE SPACE RECORDS REVERSE FOR 1 RECORD, STILL BEYOND EOT 


* eeeenaeeerererececerececcereereeeceerenerereceeeeeecereneeeereeneere 





NOV #1404610, T34PK3 SSPACE RECORDS REVERSE, ACK, CVC=1 CRD 
MOV “SPACE ONE RECORD REVERSE 

MOV aT $aPRS RG “RG = POINTER TO PACKET 

MOV Ro, TSB (RS) $ ISSUE COMMAND 

JSR PC WALTE WAIT FOR SSR TO SET 

MOV TSSRC(RS),RI GET TSSR CONTENTS 

MO #SC'SSRIBIT 





SEQ 185 


’ 
' 
ee A EE ET TT ———— > Sinan aden 





————— enna 


Cc 15 
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eee wen a ee ee 

















7344 054006 020102 CMP sé, R2 SARE THEY EQUAL 
7345 054010 001006 BNE 160$ ‘BR, i MIGHT BE END OF TAPE 
7346 054012 004737 020070 JSR PC FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
7350 054016 ERRHRD E®RNO,T34P0S,PKTSSR “SPACE RECORDS REVERSE FAILED 
054016 104456 CSERHRD 
1001 j 513 
055564 “WORD  134P0S 
011670 “WORD  PKTSSR 
160$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP  CSCLP1 
; eonnenenennencensenneceensensesercennanansneneceesenessresensescqess 
EOT SHOULD STILL BE SET 
WPTITTTTTTITITITTTTITTLLT TLL tiie 
013701 055426 MOV T34BFR+6,R1 sPICK UP XSTO 
010102 MOV —s- RT, R2 sSET UP EXPECTED 
052702 000001 BIS § #B1T0,R2 “SET THE EOT BIT ON IN EXPECTED 
2 020102 CMP sé R2 [WAS THE BIT ON 
001406 BEQ 163$ SBR, IF EOT WAS FOUND 
004737 020070 JSR PC, FATCHK INC AND CHECK FOR MORE THAN 25 ERRORS 
2 ERRHRD ERRNO, 134ETS,EXPREC “EOT BIT (XSTO) NOT SET 





104456 TRAP 
001002 - WORD 







056467 - WORD 
016354 - WORD 
16358: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 


 csacenbnnceneuausdsbenndieteuneeeseeneedbacontneneseonaseceneoveqsenese 


HOWEVER, THE THK BIT SHOULD NOW BE CLEAR 


Sn des pc a ce kama 









13701 055426 MOV TS4BFRE6, RI sPICK UP XSTO 
010102 mov sé, SET UP EXPECTED 
2702 100000 BIC #BiTiS,R2 “CLEAR THE THK BIT ON IN EXPECTED 
54076 020102 CMP sé, R2 WAS THE BIT ON 
001406 BEO 165$ °BR, IF TMK WAS FOUND 
004737 020070 JSR —s PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34 THN, EXPREC “COULD NOT CLEAR TMK (ZST0) 

104456 SERHRD 

001003 "WORD 515 

057403 “WORD -TS4THN 

016334 "WORD EXPREC 
165$:  CKLOOP LOGP In SELECTED 

106406 TRAP  CSCLP1 


* eeceeacanecececeeeeeecereeeerereceneecenenereeeceneeerecereeeneeeeee 


NOW SPACE 3 RECORDS IN REVERSE 


* encerenenceeeceeecreeececcererecerenceneceentereneeetenneceneeeeeeeere 
o 





LLL LLL LLL LA — eee 


TEST 5: 


7395 054120 
73 


7416 
7417 054202 
7418 054206 


7419 054210 0427 
214 


7420 054 

7421 054216 

7425 054220 
0542 
054222 
054224 
054226 

7426 

7427 054230 
054230 


7435 0542352 


012737 


013701 





7436 054240 
37 46 012704 


7437 0542 
7438 054252 
7439 054256 
















CZTUZAO TUSO FRONT END PRT D 


OPERATIONS AT EOT 


149410 055530 
000003 055 


055426 
000001 


140010 055530 
000004 0555352 


1 6 
7 017110 


MACRO M1200 


532 
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MOV #140410, 134PK3 
MOV #3, 1340B 
MOV TTSaPRS RG 
MOV RA, TSDB(RS) 

JSR PC ,wAITF 

MOV TSERCRS) RI 
MOV #SSR,R2 
CMP R1,R2 

BEQ 167$ 


JSR PC ,FATCHK 
ERRHRD ERRNO, 1T54P0S ,PKTSSR 






; SPACE oe REVERSE, ACK, CvC=1 CMD 
i SPACE T HREE .¥ REVERSE 
ts = POINTER TO PACKET 


COMMAND 

WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
;SET UP EXPECTED 

sARE THEY EQUAL 
BR, 11 MIGHT - END OF TAPE 

sINC AND CHECK FOR ae THAN 25 ERRORS 
;SPACE RECORDS COMMAND FAILED 



































167$:  CKLOOP sLOOP IF SELECTED 
TRAP - CSCLP1 
; eeennnenneneneeseneneneeersnseccaeeneansnnsenenennensconscecnaecossess 
NOW THE EOT BIT SHOULD BE CLEAR 
[eeeaeeneneneererreneeerrenereneeeteneeaneeneeaneseeneneserennecerenes 
r MOV T34BFR+6,R1 sPICK UP XSTO 
MOV —s«aR1R 7SET UP EXPECTED 
BIC #BiT0.R2 “CLEAR THE EOT BIT ON IN EXPECTED 
CHP sé R2 “YAS THE BIT OFF 
BEQ 1 “BR, IF EOT WAS FOUND 
ERRHRD ERRNO, T34ETC,PKTSSR “UNABLE TO CLEAR EOT INDICATION 
TRAP CSE 
.WORD 517 
"WORD  T34ETC 
“WORD PKTSSR 
170$:  CKLOOP sLOOP IF SELECTED 
TRAP  CSCLP1 
;eeeennennenauenensenecenanesereenacnecensccnceneceernnnnasesencneness 
NOW SPACE 4 RECORDS FORWARD, ONCE AGAIN OVER EOT MARKER 
;eeeeeneneneneneneeenenceneaneeseennccnnacesstsncnnnasensnnnnanssents 
MOV «#140010, T34PK3 SPACE RECORDS FORWARD, ACK, CVC=1 
MOV 3408 SSPACE FOUR RECORDS 
MOV OTS4PK3,R4 RG = POINTER TO PACKET 
MOV —s_«aR&,, TSDBCRS) 3] COMMAND 
JSR PC WAL “WAIT FOR SSR TO SET 
MOV TSSRCRS) RI “GET TSSR CONTENTS 
MOV  s« @SSR,R2 “SET UP EXPECTED 
CMP sé RO SARE THEY EQUAL 
BEO 190% “BR, IT MIGHT BE END OF TAPE 
JSR CHECK FOR RORE THAR 25 ERRORS 


: INC AND 
SSPACE RECORDS COMMAND fF 





LED 
TRAP 





CSERHRD 
. = 


SEQ 185 


; 
' 
EE SEE ES A A AT 


I 
eee - 


i 
——— ne —_ 


E 15 
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054306 055564 ; T 
054310 011670 “WORD sateen 
7449 054312 190$: CKLOOP sLOOP IF SELECTED | 
od 054312 104406 TRAP CSCLP1 
ete jenenenensnnneecaeneeeeeenceceeeneeessssnnnnccaauaceesnnenseenseesecs 
tS ; ONCE AGAIN THE EOT INDICATION SHOULD BE SET IN XSTATO 
Lng ; seeeenenannceeeeeeeeseseceeaueeesesnnnncencenseenencncaneooosereeneees 
7457 054314 013701 055426 , MOV T34BFR¢6,R1 sPICK UP XSTO 
7458 054320 010102 MOV B sSET UP EXPECTED 
7459 054322 052702 000001 BIS #B1T0,R2 *SET THE EOT BIT ON IN EXPECTED 
7460 054326 020102 CMP R1,R2 sWAS THE BIT ON 
7461 054330 001406 BEO 2008 BR, IF EOT WAS FOUND 
7462 054332 004737 020070 JSR PC, FATCHK ‘INC AND CHECK FOR MORE THAN 25 ERRORS 
7466 054336 ERRHRD ERRNO, T34ETS EXPREC sEOT BIT (XSTO) NOT SET 
054336 104456 
054 001007 
054342 056467 
054344 016334 
7467 054346 200$: CKLOOP sLOOP IF SELECTED 
on 054346 104406 CSCLP1 
Lng  aeanteanrenreerreeeeenecerereereereneeneeneenetereneeanesreeneeneetes 
4 : 
aa : NOW ISSUE A READ REVERSE COMMAND 
oes c aeenernenearenerenereereerentenreneaneeneenerareneeneseneeeeateneenete 
ara ; 
7475 054350 012737 140401 055530 MOV #140401 , T34PK3 sREAD REVERSE, ACK, CVC=1 
7476 054356 013737 003072 055532 MOV FREE, T34RB “SET UP WRITE BUFFER ADDRESS 
7477 054364 012704 055530 MOV #TS4PK3,R4 *R4 = POINTER TO PACKET 
177776 MOV R4, TSDB(RS) s ISSUE COMMAND 
017110 JSR PC WAITF sWAIT FOR SSR TO SET 
000000 MOV TSSRCRS) ,R1 sGET TSSR CONTENTS 
702 000200 MOV #SSR.R2 :SET UP EXPECTED 
CMP sé RP SARE THEY EQUAL 
BEQ 205$ °BR, ONLY SSR IS SET 
020070 JSR PC. FATCHK 2 INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34RRE .PKTSSR *READ REVERSE COMMAND FAILED 
T CSERHRD 
.WORD 520 
.WORD T34RRE 
011670 .WORD PKTSSR 
205$: CKLOOP sLOOP IF SELECTED 
104406 TRAP CSCLP1 


* eaneenacaneneececeeeeceeeeeeeeeeenenneneereceneeneeeereneeerenererere 


NOW ISSUE A READ REVERSE COMMAND 


WTTTITTTITITI TL LLL LiL lili 
+ iy REVERSE, ACK, CvC=1 
sSET UP WRITE puree ADDRESS 


= PUR 





LL LES A  T, 


12737 






#140401 , T34PK3 
MOV FREE, TS4RB 
] aT34Px 






TEST 5: 


OPERATIONS A 


CZTUZAO TUSO FRONT - ® tat 0 


7499 054452 


a 





177776 


7 017110 


000000 
000200 


020070 





F 15 
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055530 


2108: 


2358: 


CKLOOP 


R4, TSDB(RS) 
PC,WAITF 
TSéR(R5), Ri 
#SSR,R2 


SR,R 
1 gue 


PC .FATCHK 
ERRHRD ERRNO, TS4RRE ,PKTSSR 


NOW ISSUE A READ COMMAND 


a 
pEEEPE ELLE 


me 
2° 





CKLOOP 


an 
SSqsscseess 


CKLOOP 





#140001 T34PK3 
T34RB 

#3500. 13482 
#T34PKS,RG 

Re, TS0BURS) 

PC .WAITE 

TSSRIRS) RI 

#SSR,R2 

RiRe 






r4 
PC ,FATCHK 
ERRNO, TS4RRF ,PKTSSR 


#140001, T34PK3 
vs 






PC.WAITE 
Hg la 


#SSR,R 
1,R2 
235$ 


PC FAT 
ERRHRD ERRNO, TERRE, PKTSSR 


UE COMMAND 
SWAIT Ans cares 0 SET 





AND CK MORE THAN 25 ERRORS 
SECOND READ REVERSE COMMAND FAILED 
TRAP CSE 






;LOOP IF SELECTED 





jteaneeenennenencerenenenserscsenasensnncanenennecneaserecasoreccesecs 


 niineneennedeseusenenbededebenseseseeenenneenaneeoneeeboronrcensecesere 


sREAD ye ACK, i. 

SET UP WRITE BUFFER ADDRESS 
SET UP BUFFER SIZE = 5K BYTES) 
as = o> TO PACKET 


| OMMAND 
WAIT FOR SSR TO SET 










BE END OF TAPE 
FOR MORE 
COMMAND FAILED 


sLOOP IF SELECTED 


+ oe ee ACK, CvC=1 
3SET UP WRITE BUFFER ADDRESS 

. UP BUFFER SIZE us SK BYTES) 
= POINTER TO PAC 








; HEY EQUAL 

BR, IT MIGHT a: END OF T 

sINC AND CHECK FOR — THAN 25 ERRORS 
SSECOND READ FORWARD FAIL i. 





CSERHRD 
-WORD 525 
-WORD TS4RRF 
-WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


—— ae = 


SEQ 187 


ae 


eee eae — -_ 


CZTUZAO TUBO FRONT END PRT D 
TEST 5: 





0 
010102 
042 


013701 


13701 


OPERATIONS AT EOT 


055426 
000001 


020070 


2408: 


140410 055530 
000005 055552 


055530 
177776 
017110 
000000 


020070 


055426 


702 000001 


020102 
001406 
006757 


020070 


250: 


G 15 
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SSRASKAAAAAAAAAAAAAAAAAAAAASHEAAAEAAAAAAAAHAAAAAAAEAAAAAAAAAAEEAEEAAAEE 


THE EOT BIT SHOULD HAVE REMAINED SET 


MOV 
MOV 
BIS 
CMP 
BEQ 


JSR PC .FATCHK 
ERRHRD ERRNO, TS4ETZ ,EXPREC 


CKLOOP 


T34BFR+6,R1 


#BiT0,R2 
R1R2 
24 


eee 


a UP xSTO 
sSET UP EXPECTED 

sSET THE EOT BIT ON IN EXPECTED 
sWAS THE BIT ON 

BR, IF EOT WAS FOUND 

3 INC CHECK FOR MORE THAN 25 ERRORS 
ZE0T BIT (xSTO) NOT SET ‘ 

WORD 
WORD 











sLOOP IF SELECTED 
TRAP 


S snennnndnncecececseccccencecnccecnncoconcenseesensesceosecescesesecens 


NOW ISSUE A SPACE RECORDS REVERSE FOR 5 RECORDS 


i 
SSgescssss 


ERRURD ERRNO, T34POS ,PKTSSR 


CKLOOP 


#140610, T34PK3 


#TS4PK3,R4 
Re TSDB IRS) 


TSSRERS) RI 
++ 
2508 


PC ,FATCHK 









; teeneneneenencenceesereneneseresennaaaeennceneeseeseccaessenscacesetes 


:SPACE RECORDS REVERSE, ACK, CvC=1 CMD. 

sNUMBER OF RECORDS TO SPACE 

3R4 = POINTER TO PACKET 
s ISSUE COMMAND 








sARE THEY EQUAL 
BR, IT MIGHT BE END OF 
NC AND C 


ry HECK FOR MORE THAN 25 ERRORS 
TSPACE 5 RECORDS REVERSE COMMAND FAILED 
TRAP CSERHRD 
«WORD 525 
-WORD TS4POS 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


; seenuneneecenennseeseeccenereeenenenenenncnassencnnaaasecnnaasenneens 


EOT SHOULD BE CLEAR AS WE ARE NOW IN FRONT OF EOT 








R1,R 
#B1T0,R2 
RI RZ 





PC .FATCHK 
RRNC 


TS4BFR+6,R1 















;teeuananenseesenenstccenseoereencenscnncnacntnnnaasanesnanaaenenenss 


sPICK UP XSTO 

sSET UP EX APEC CTED 

;CLEAR THE EOT BIT ON IN EXPECTED 
S THE BIT ON 


BR 
IN 





EOT WAS FOUND 
CHECK FOR MORE THAN id — 
ISTO) NOT CLEAR 


ee 


. If 
NC AND 









SEQ 188 


TEST 5: 





055034 


0550 
055040 056045 


5 
7636 055130 
7637 055134 
638 055136 
7639 oeetat 


re 
7653 


055166 


012737 


013701 
02 


012737 


CZTUZAO TUBO FRONT END PRT D 
OPERATIONS AT EOT 


140010 055530 
peg id 0555 


055426 
000001 


ee nnn eee a NUE 


WH 15 
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055160 012737 141410 055530 


32 





055532 








260$: CKLOOP sLOOP IF SELECTED 





CSCLP1 


 senncansaneebecceccneeesooecseencenceeonocesrorecesoneooeosoesoneceess 


NOW SPACE FORWARD 5 RECORDS AGAIN 


ee  ———————Eeeeeeeeeeeeeee 









MOV #140010, T34PK3 ;SPACE RECORDS FORWARD, ACK, CVC=1 CAD 
MOV #5,134RB R OF RECORDS TO SPAC 

MOV #TS4PK3,RG “R& = POINTER TO PACKET 

MOV R4, TSDBCRS) “ISSUE COMMAND 

JSR PC .WAITE “WAIT FOR SSR TO SET 

MOV TSSRCRS) RI <GET TSSR CONTENTS 

MOV #SSR,R2 ser UP EXPECTED 

CMP Ri ,R2 ARE THEY EQUAL 

BEQ 

JSR 


PC .FATCHK 
ERRHRD ERRNO, TS4PO0S ,PKTSSR 












270$:  CKLOOP SLOOP IF SELECTED 
jeencenneuneseneesenensesentencennensnencneeescenccenscsnsasssenssnes 
EOT SHOULD BE SET AGAIN 
; eneeneneennnenereseneneneeeerencecuecsenenccnacoensnnnaseeenessesess 
MOV T34BFRO6,R1 sPICK UP XSTO 
MOV 1,R2 SET UP EXPECTED 
BIS § #B1TO,R2 “SET THE EOT BIT ON IN EXPECTED 
CMP CRT R2 “WAS THE BIT ON 
BEQtié2 “BR, IF EOT WAS FOUND 
ERRHRD ERRNO, T34ETS.PKTSSR | :E0T FAILED TO SET AFTER SPACE CMD. 
TRAP  CSERHRD 
.WORD 
“WORD ‘TS4ETS 
“WORD PKTSSR 
280$:  CKLOOP SLOOP IF SELECTED cae 
"ida et ln alata an he al meine alee 
NOW ISSUE A SKIP FILE MARKS REVERSE COMMAND, BUT WE KNOW THAT 
; THERE AREN'T ANY THERE SO WE SHOULD RUN INTO BOT 
+ eeeeerennreececereerereereereereeenereneneeeneenenerereareenenteetenes 


¢ SKIP FILE MARKS REVERSE -ACK .CVC=1 — 






AH? oTS4PKS 


SEQ 189° 


1 15 
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7654 055174 012704 055530 MOV #T34PK3,R4 sR4 = POINTER TO PACKET 
7655 055 010465 177776 MOV Re TSDBERS) : COMMAND 
7656 055204 012737 176750 055544 MOV #65000. ,T34DLY SSET UP DELAY COUNTER 
7657 055212 004737 017110 285$: JSR pr WATE “WAIT FOR SSR TO SET 
7658 055216 016501 000000 MOV TSSHCRS) RI SGET TSSR CONTENTS 
7659 055222 032701 000200 BIT #SSR,RI SCHECK FOR SSR SET 
, — peeay $50" SOIT ABOUT 25° SECONDS 
012727 000250 mov #250, (PC)+ 
013727 002116 MOV LSOLY, (PC)+ 
5367 177772 et -6(PC) 
001375 BNE = 
367 177756 DEC =22(PC) 
001367 BNE --20 
005337 055544 DEC T34DLY ;BUMP COUNTER 
001352 BNE 285$ “BR, IF MORE TO COUNT 
012702 100204 286$: MOV #SSR'SC!BIT2,R2 “SET UP EXPECTED TAPE STATUS ALERT 
020102 CMP R1,R2 SARE THEY E 
001407 BEQ 300$ “BR, IT MIGHT GE END OF TAPE 
005303 DEC R3 SDEC RECORD COUNTER 
004737 020070 JSR PC,.FATCHK “INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T34WOL.PKTSSR “SKIP FILE MARK REVERSE CMD. FAILED 
104456 TRAP CSE 
001021 : 
057540 “WORD  T34WOL 
011670 : PKTSSR 
SRRAAAAAAAAAAAATETAAATSAERAAARAAATAAAAAEAAAAAEL ARS RAAAEEAAAAEASELENENEE 
; THE BOT INDICATION BETTER BE SET 
7677 PerrrererrrrrrrrTrTrrTrTrTiITiTiTIITITiTitTiiitifititiiiiitiiiiii iii titi 
ra 055314 :  CKLOOP sLOOP IF SELECTED 
104406 TRAP —- CSCLP1 
7679 OFe a6 013701 055426 MoV T34BFR+6,R1 sPICK UP XSTO 
7680 05532 MOV R1,R <SET UP EXPECTED 
2 000002 BIS #BiT1,R2 *SET THE BOT BIT ON IN EXPECTED 
CMP R1.R2 “WAS THE BIT ON 
BEO “BR, IF BOT WAS FOUND 
020070 JSR PC .FATC “INC AND CHECK FOR MORE THAN 25 ERRORS 
. ERRHRD ERRNO, TSeBOT. EXPREC “BOT NOT SET AFTER SPACE CRD. 
TRAP CSERHRD 
"WORD 34807 
“WORD EXPREC 
320$:  CKLOOP SLOOP IF SELECTED 
RAP CSCLP1 
600$: ENDSUB 3>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 
L10060: 
CSESUB 
017344 JSR PC, TSTLOOP :DO WE NEED TO ITERATE TEST 
acc 163$ “BR, IF NO LOOP REQUIRED 
052706 JMP T34L00P EXECUTE AGAIN 
165$: EXIT TST “ALL DONE THIS TEST 





; Ere => ae 


7_ 


enews cama eC LL LE LT 


ee EE EE EL ES TT A EE SN 


7732 34 
7733 055536 
7734 


7735 
7736 055540 
7737 055542 
7738 055544 

7739 

40 
7741 055546 
2 055546 
7743 055547 
055550 
oe 055552 


CZTUZAO TUSO FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 
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;¢ 
LOCAL STORAGE FOR THIS TEST 


-BLKB 1%-<,-TUV2ZA87> 
T34PACKET: 

-WORD 100004 

eWORD TS4DATA 

-WORD 0 

eWORD 8&8. 
T34DATA: 

-WORD TS34BFR 

WORD 0 

-WORD 10. 

WORD 0 


T34BFR: .BLKW 25. 
“WRITE SUBSYSTEM MEMORY COMMAND PACKET 
-BLKB 10-<.-TUV2A87> 


T34PK2: 


100006 

T34BF 2 

0 

6. 
10-<.-TUV2A87> 
100005 


200 


oon 
oS 


EVEN 
sTAPE MOTION PACKET COMMAND VALUES 


T34WD: .WORD 100005 
T34WDR: .WORD 100405 
T34CON: .WORD 102005 

WORD 177777 


;COMMAND PACKET FOR TEST 
SWRITE CHARACTERISTICS COMMAND, WITH ACK 
SADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
SCHARACTERISTICS DATA BLOCK 
ADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 








WRITE SUB SYS MEM COMMAND, AND A 
ADDRESS OF SELECT BLOCK DATA 


SIZE OF DATA PACKET 


sWRITE COMMAND, AND ACK 
sADDRESS OF WRITE/READ BUFFER 
SIZE OF BUFFER CEXTENT) 

TAPE RECORD IN BYTES 


s LARGEST 
sTAPE RECORD COUNTER 
:DELAY COUNTER 


sBSELO AREA 


i. 
DATA AREA 


sWRITE DATA (NEXT) 
WRITE DATA RETRY 
WRITE CONTINOUS 
sEND OF DATA 


— ee + eee 


SEQ 191 


| 
| 
| 





K 15 


Q 192. 
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7758 | 
7759 ¢ | 
7760 sLOCAL TEXT MESSAGES FOR TEST 
7761 3- | 
7762 
7763 
7764 124 123 123 .ASCIZ ‘TSSR Incorrect After Position (SPACE RECORDS) Command’ 

127 122 111 ASCIZ ‘WRITE TAPE MARK Beyond EOT Failed To Set EOT Bit (xST0)’ | 

122 105 101 eASCIZ ‘READ REVERSE Command At EOT Didn’’t Give Normal Termination (TSSR)° 

125 156 141 eASCIZ ‘Unable To Clear EOT Indication, (xST0) Bit 0° 

123 153 151 eASCIZ Rs File Mark Reverse (over entire tape) Failed To Set BOT (xSTO) Bit’ 

127 122 111 .ASCIZ “WRITE TAPE MARK At EOT Failed To Set Tape Status Alert’ 

127 122 111 : .ASCIZ ‘WRITE DATA Beyond EOT Failed To Set Tape Status Alert’ 

127 122 111 eASCIZ “WRITE DATA Beyond EOT Failwd To Set EOT Bit (xST0)° 

123 120 101 eASCIZ Beyond EOT Failed To Set ECT Bit (xSTO)’ 

122 105 101 eASCIZ ‘READ DATA Beyond EOT Failed To Set EOT Bit (xsTO)’ 

120 117 123 ASC1Z Command Berend E€OT 

105 117 124 eASCIZ Found In 65 3.5K 

127 122 111 ASCIZ ‘WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT’ 

117 160 145 TST34I1D: eASCIZ ‘Operations At EOT’ 

124 123 123 T34RWN: .ASCIZ ‘TSSR Incorrect After Position (REWIND) Command’ 

124 123 123 T34STM: .ASCIZ ‘TSSR Incorrect After SKIP TAPE MARK REVERSE ond EOT Mark’ 

105 117 124 T34STE: .ASCIZ ‘“EOT (XSTO) Not Set After SKIP TAPE MARK REVERSE, Beyond EOT’ 

125 156 141 T34TMN: .ASCIZ ‘Unable To Clear TMK (XSTO) Bit Using Space Command’ 

124 123 123 T36RRF: .ASCIZ ‘TSSR Incorrect After READ FORWARD Command’ 

124 123 123 TS4WOL: roy "TSSR Incorrect After SKIP FILE MARK REVERSE’ 


+ 


sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 


T34REST: 
sSAVE THE REGISTERS 
012701 055400 MOV STS4PACKET RI sSTART OF THE PACKET 
1 ° + sWRITE SUBSYSTEM MEM. WITH ACK 
STS4DATA, (R1)+ sADDRESS OF CHARAISTICS DATA BLOCK 
(R1)+ sEXTENDED ADDRESS 
12721 000012 MOV #10.,(R1)¢ sSIZE OF DATA BLOCK IM BYTES 
MOV @T34BFR,(R1)+ sADDRESS OF MESSAGE BUFFER 
bs 


012721 000024 MOV #20. ,(R1)+ sLENGTH OF MESSAGE BUFFER 


012711 000000 MOV #0, (RI) sSELECT DRIVE ZERO 
#24. ,R2 “NUMBER OF LOCATIONS TO BE CLEARED 
2762 177777 055420 64$: #177777, T34BF R(R2) “ALL ONES TO MESSAGE BUFFER 
-(R2) “BUMP DOWN TO NEXT LOCATION 
000000 R2 *R2 AT ZERO YET 
é “KEEP GOING UNTIL DONE 
RTS PC RETURN 


——- eee ee ee LLL LD LL 





T34RT2: : 





el 


L 15 
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SEQ 193 
TEST 5: OPERATIONS AT EOT : 


























7815 057712 012701 055510 MOV #T34PK2,R1 sSTART OF THE PACKET 
7816 057716 1279 100006 MOV # "(R1)¢ “WRITE SUBSYSTEM MEM. WITH ACK 
7817 057722 012721 055546 MOV STSeBre {RI} SADDRESS OF DATA BLOCK 
7818 0577 5021 CLR (91) SEXTENDED ADDRESS 
9 o37735 012721 000006 MOV #6.,<R1)¢ “SIZE OF DATA BLOCK is, BYTES 
7820 057734 012701 055546 MOV #T34BF2,R1 ‘POINT TO DATA SEL AR 
7821 057740 005021 CLR (R1)¢ 
7822 057742 005021 CLR (R1)¢ 
7823 057744 005011 CLR (R1) 
0577 207 RTS PC RETURN 
05 T34RT3: 
7826 057750 sSAVE THE REGISTERS 
7827 057754 012701 055530 #T34PK3,R1 SSTART OF THE PACKET 
7828 057760 012721 100005 #100005, (R1)¢ “WRITE TAPE. WITH ACK 
7829 057764 005021 (R1)¢ i ADDRESS OF DATA BLOCK 
057766 005021 (R1)¢ “EXTENDED ADDRESS 
7831 057770 005011 (R1) “SIZE OF DATA BLOCK 
057772 000207 PC RETURN 
7833 057774 
057774 L10057: 
057774 104401 TRAP CSETST 


ee - 
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TEST 6: FUNCTION TIMING 


SEQ 194 












7836 .SBTTL TEST 6: FUNCTION TIMING 
7839 STHIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
7840 ECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
7841 “AND HIGH SPEED MODES ARE TESTED: IT 1S ALSO VERIFIED THAT A 
7842 RECORD COUNT OF 80 OR MORE, AND A 
7843 :SK MARKS COMMAND vith NA COUNT OF 2 OF MORE, OPERATE THE 
7846 “TAPE IN HIGH@SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
7845 REALTIME CLOCK 1S AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
72846 TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
7847 ; DIFFERENT TEST RECORD LENGTHS. 
7848 
7849 ° 
7850 a 
7851 057776 BGNTST 

057776 16:: 
7852 057776 005037 002170 CLR FATFLG SCLEAR FATAL ERROR FLAG 
7853 060002 005037 003100 CLR FLG swOLD OFF KT11 
7854 060006 012737 005672 002146 MOV REPAY! .EPRISU PRIMARY ERROR MESSAGE 
7855 060014 004737 020234 JSR PC, KTOFF sTURN KT OFF 
7860 060020 012700 064223 MOV #TST371D,RO sASCII MESSAGE TO IDENTIFY TEST 
7861 060024 004737 017376 JSR PC, TSTSETUP *DO INITIAL TEST SETUP 
7862 060030 012737 000002 002164 MOV #2, LOOPCNT “PERFORM 2 ITERATIONS 
7863 060036 005037 061266 CLR rests “CLEAR TAPE RECORD COUNTER 
7864 “* 


TEST 6, SUBTEST 1 





@e Ge © pale gs a 
—7==————— hae 
——————— 
EE LT 


7875 060042 
06004 


0 
he 012727 
060116 013727 
22 000000 


060160 005550 
oeeeee 011656 


7896 060164 012704 
004737 
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MACRO M1200 


064400 
061272 
6634 





002116 
177772 
177756 
061272 
020070 


061110 
010322 


020070 





060246 104406 
7916 060250 013701 061136 


108: 


238: 


30$: 


BGNSUB 


CKLOOP 
MOV 





N15 
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INTRECV 
T37UNT 


T37CNU 
PC, TS7REST 
PC 


PC SOF INIT 
20$ 
250 


T37DLY 
PC. FATCHK 
ERRNO, SFIERR, SF IMSG 


#TS7PACKET .R4 
TCHR 


we 


23 
PC. FATCHE 
ERRNO, WRTMSG, SF IMSG 


PC REWIND 
<a 


PC ,FATCHK 
ERRNO, TS7RWN,PKTSSR 


T37BFR+6,R1 


$>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


C$BSUB 
sIMER FOR INDICAT ae 
TIMER FOR WRITE DATA SPACING 
; TIMER FOR yt E _ RETRY SPACING 





7S COUNTER 
:00 INITIALIZE ON CONTROLLER 
sBR IF INIT WAS OK 

;DELAY ABOUT ~25 SEC 


MOV #250, (PC)+ 
WORD 

MOV LSOLY,(PC)+ 
- WORD 

DEC -6(PC) 


BNE . 
DEC -22(PC) 
BNE 


sBUMP COUNTER 

BR. IF COUNTER NOT DONE 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
CONTENTS OF TSSR REGISTER 
:FATAL ERROR TSSR WAS ” OK 


CSERDF 
WORD 601 
WORD SFIERR 
WORD SFIMSG 


;SUBROUTINE NEEDS PACKET ADDRESS 
3 ISSUE WRITE CHARACTERISTICS 


sBR, IF C ISSUED OK 
sINC AND CHECK FOR MORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
SWRITE CHARACTERISTISC Bory 
TRAP CSERHRD 
eWORD 602 
WORD WRIMSG 
WORD SFIMSG 
sLOOP IF SELECTED 
TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 
PROBLEM 


36R, IF NO 

GET TSSR CONTENTS 

GET PACKET age 

sINC AND CHECK FOR MORE THAN 25 ERRORS 
SREWIND NOT ACCEPTED 


sLOOP IF SELECTED 
TRAP CoCLP 


A A ee 





CZTUZAO TU8O FRONT END PAT D 


TEST 6: 


7919 060262 
84 


010102 


104457 
001135 


063001 
011670 


062445 
011670 


06 
013701 
02 


FUNCTION TIMING 
7917 060254 
8 060256 


000002 


020070 


061136 
000002 


020070 
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061242 
061240 
061246 


40S: 


65$: 


70$: 


130$: 


J 
ERRHRD 


R1,R2 
#BiT1,R2 
R1,R2_ 
ang 
PC, FATCHK 
ERRNO, 137B0T ,EXPREC 


#100. .R3 
#140608, 137Pc3 


#137P 
#600. Kreis 
R4, TSDB(RS) 


PC WAITF 
TSSRCRS) RI 
#SSR,R2 
R1,R2 

70$ 


PC .FATCHK 


ERRNO, T357WDC ,PKTSSR 


65$ 
we 
TSSRCRS) RI 
ae 
ERRNO, TS7RUN, PKTSSR 


TS7BER+6,R1 
#BiT1,R2 
R1,R2 


1408 
PC FAT 
ERRNO, T37B0T ,EXPREC 





sSET UP EXPECTED 
;SET BOT BIT anes — 


DOES EXP = 

sBR, IF E el 

SINC AND CHECK FOR MORE THAN 25 ERRORS 

TAPE NOT AT BOT AFTER — 

CSERHAD 

WORD 604 
«WORD 137801 
WORD EXPREC 


sLOOP IF SELECTED 
RAP CSCLP1 
sNUMBER OF RECORDS TO BE WRITTEN 
Ae ADDRESS 





SET UP RECORD "size IN PACKET 


s ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
‘SET UP EXPECTED 
sARE THEY EQUAL 
sBR, IF OK 
[INC AND CHECK FOR MORE THAN 25 ERRORS 
SOFT ERROR, DON'T CARE ABOUT WRITE 
; COMMAND ° S gg ph - CHECKING THE 
STHE FUNCTION TIMING 
STSSR INCORRECT AFTER we ® DATA 


CSERSOF 1 
"UORD 605 
.WORD T37WDC 
eWORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sDEC ie COUNTER 
F MORE RECORDS TO WRITE 
;CALL TAPE REWIND COMMAND 
IF NO PROBLEM 
GET TSSR CONTENTS 
GET PACKET ADDRESS 


sINC AND CHECK FOR MORE THAN 25 ERROR: 
REWIND NOT ACCEPTED 


TRAP CSERHRD 
-WORD 606 
WORD T37RWN 
WORD PKTSSR 
;LOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP XSTO 
SET UP EX 


XPECTED 
;SET BOT BIT IN EXPECTED 
:DOES . = REC'D 


sBR, ) 
SINC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REW 
TRAP CSERHRD 
407. 


eee ee 


—— <—- 





CZTUZAO TU8O FRONT END PRT D 


TEST 6: 





323383 & 


antHd 2 
REFERERETEREECLEECESECenEEER 


060674 
8008 060676 
060676 





2 012727 
000000 


013727 


063707 
011670 
104406 
004737 
103411 
010004 
016501 
004737 
104456 
001141 


062445 
011670 


104406 
013701 


FUNCTION TIMING 


000037 06 
140010 061240 
177776 


000001 
002116 
177772 
177756 


000000 
000200 
000200 


020070 


010424 


000000 
020070 


061156 
000002 


020070 


1242 


1408: 


160$: 


170$: 


175$: 


CKLOOP 


CKLOOP 





C 16 
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@T37PK3,R4 
#31.,T37RB 
#140010, 137PK3 
R4, TSOB(RS) 
TS7CNT 


TSSRC(RS) RI 
#SSR,R1 
152$ 
#SSR,R2 
R2,R1 


PC .FATCHK 
ERRNO, T57SCF .PKTSSR 


PC REWIND 
170$ 


RO,R4 

TSSR(RS) RI 

PC ,FATCHK 

ERRNO, TS7RUN, PKTSSR 


T37BFR+6,R1 

R1,R 

#BIT1,R2 
R1,R2 


PC FA 
ERRNO, 737807, EXPREC 


WORD 137B0T 

-WORD EXPREC 
sLOOP IF SELECTED 

TRAP CSCLP1 


SET UP PACKET ADDRESS 

SET UP RECORDS TO SPACE OVER 
sACK,CVC=1,SPACE FORWARD COMMAND 
ISSUE COMMAND 


; TIMER 
sDELAY ABOUT 100US 


MOV #1, (PC)+ 
WORD 

MOV LSOLY,(PC)+ 
WORD 

DEC -6(PC) 

BNE ~~%4 

DEC -22(PC) 

BNE -* 


:GET TSSR 
s CHECK FOR TSSR°S SSR SET 
sKEEP COUNTING UNTIL SET 

;SEi UP EXPECTED 
oy EVERYTHING OK 

- IF ALL 1S WELL 

C AND CHECK FOR “rom THAN 25 ERRORS 
: SPACE FORWARD DIDN'T — 


CSERHRD 
. 608 
WORD T3/SCF 
. PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 


sCALL TAPE REWIND COMMAND 
BR, IF NO PROBLEM 

GET PACKET ADDRESS 

:GET STATUS FROM TSSR 

ZINC AND CHECK FOR MORE 1HAN 25 EDRORS 
SREWIND NOT ACCEPTED 


CSERHRD 
WORD 609 
WORD T37RUWN 
WORD PKTSSR 
sLOOP IF SELECTED 
TRAP CSCLP1 
sPICK UP _XSTO 
:SET UP EXPECTED 
SET .” a eee’ ies 


BR, “EQUAL (OK) 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER — 

_—" 


137801 
-WORD EXPREC 


sLOOP IF SELECTED 
____ LSCLP1 


SEQ 197 | 


dD 16 












SEQ 198 
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TEST 6: FUNCTION TIMING 
2704 061240 MOV #T37PK3,RG :$ET UP PACKET ADDRESS 
012737 000121 061242 MOV #81.,13 “SET UP RECORDS TO SPACE OVER 
012737 140010 061240 MOV #140010, T37PK3 SACK,CVC21,SPACE FORWARD COMMAND 
010465 177776 250$: MOV RA. TSDB(RS) “ISSUE COMMAND 
005237 061270 252$: INC Ishuwe “BUMP TIMER 
DELAY 1 [DELAY ABOUT 100US 
730 012727 000001 MOV #1,(PC)+ 
73% 013727 002116 HOV LSDLY. (PC)¢ 
005367 177772 DEC -6(PC) 
001375 BNE Re 
5367 177756 DEC =22(PC) 
001367 BNE .- 
016501 000000 MOV TSSRCRS) RI GET TSSR 
032701 000200 BIT #SSR,RI “CHECK FOR TSSR'S SSR SET 
001755 BEQ 252$ “KEEP COUNTING UNTIL SET 
012702 000200 MOV #SSR,R2 SSET UP EXPECTED 
020201 CMP R2,R1 WAS EVERYTHING OK 
BEQii260St~” SBR, IF ALL IS WELL 
004777 020070 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN w 25 ERRORS 
ERRHRD ERRNO, T37SCF,PKTSSR °SPACE FORWARD DIDN'T WORK OU 
104456 -_ CSERHRD 
001143 .WORD 611 
063707 “WORD 137SCF 
011670 “WORD PKTSSR 
260$:  CKLOOP sLUOP IF SELECTED 
104406 CSCLP1 
1020 013701 061266 MOV T37CNT,RI sTIME FOR WRITE SPACING 
013702 061270 MOV T37CNU,R2 STIME FOR WRITE RETRY SPACING 
04270 77 BIC #000077 ,R1 I ONSTANTS 
04270 BIC #000077 .R2 : 
020102 CMP sé R2 ;CHECK FOR DIFFERENCE 
003406 BLE 5008 , IF GOOD CHECK 
004737 020070 JSR PC, FATCHK SINC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, 137T1M,EXPREC ‘TIME WAS NOT DIFFERENT ENOUGH 
104456 TRAP  CSERHRD 
001144 .WORD 612 
062234 “WORD -T37TIM 
1056 016334 "WORD EXPREC 
300$:  CKLOOP sLOOP IF SELECTED 
104406 TRAP  CSCLP1 
ENDSUB 8€<<6 CCC KKK END i >>>>>>>>>>>> 
104403 TRAP CSESUB 
004737 017344 JSR PC, TSTLOOP :DO WE NEED TO ITERATE TEST 
103002 Bcc 163$ “BR, If NO LOOP REQUIRED 
000137 060042 JMP T37LOOP “EXECUTE AGAIN 
1638: EXIT TST “ALL DONE THIS TEST 


& TRAP C 
003322 Word 10061-. 





ee 
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sass 
SESES 
ESESE 


RS 
ee ed cad ced eed eed ee aD ced cen ed owed 


seeeseususay 


8095 
8094 
8095 
8096 
8097 
8098 
8099 


Sse 
rt bt 


C= Ce Co C8 Ge oe 
a ed on aad ed 
So 

Ned 


SRRVBBsznsoe 


100004 
061120 
000000 
000012 
061130 
90000 
000024 
000000 
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3+ 
sLOCAL STORAGE FOR THIS TEST 


-BLKB 19%-<.-TUV2ZAR7> 
T37PACKET: 

‘ 100004 

eWORD TS7DATA 

-WORD 0 

-WORD 10. 
T37DATA: 

WORD T37BFR 

-WORD 0 

-WORD 20. 

WORD 0 


T37BFR: .BLKW 25. 
WRITE SUBSYSTEM MEMORY COMMAND PACKET 


-BLKB 10-<.-TUV2AE7> 
T37PK2: 


100006 

T37BF2 

0 

6. 
10-<.-TUV2A87> 
100005 

FREE 





-EVEN 
sTAPE MOTION PACKET COMMAND VALUES 





100205 

100605 

102205 

177777 
T37CNT: .WORD 0 
7CNU: .WORD 0 
T37DLY: .WORD 0 


ee 


COMMAND PACKET FOR TEST 
SWRITE CHARACTERIST 
SADDRESS OF CHARACTERISTICS BLOCK 
sSTARTING VALUE OF BLOCK SIZE 
s CHARACTERISTICS DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 
sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM 
ADDRESS OF SELECT SiOCK DATA 


sSIZE OF DATA PACKET 


sREREAD COMMAND, AND ACK 
sADDRESS OF WRITE BUFFER 
sSIZE OF BUFFER (EXTENT) 


sBSELO AREA 


DATA AREA 


sREREAD DATA (NEXT) 
REREAD DATA RETRY 
WRITE CONTINOUS 
END OF DATA 


sTAPE TIMER COUNTER STORAGE AREA 
:TAPE TIMER COUNTER STORAGE AREA 
DELAY COUNTER 


Osea — 


COMMAND, AND ACK 


SEQ 199 | 


ICS COMMAND, WITH , ACK 


ee ee -~ 


LL LEAL ALLE AAS LOO LITO 
EC EG OC CE LE EE ELE ALLS, EE - 


8 660 
8121 061755 
8122 062016 
81235 062052 
8124 062141 
8125 062254 
8126 062311 
ae on tat 


8144 064046 
8145 064126 
zeae 064225 





8164 
8165 064304 





EMME MN ES FM FNON SE & 


AENEAN A te St oy tht N ENR ye Sry GAH tA gg 


cae me cae ed ce eB ed coe eed ed en me me mn me ee ee a ed ed ed ed aed 
WRIMIRIAD Wd & Ul & & 


Po 


CZTUZAO TU8O FRON. END PRT D 
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F 16 
SEQ 200 | 
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3¢ 
LOCAL TEXT MESSAGES FOR TEST 










































141 160 eASCIZ vere Position Incorrect After REREAD Previous (OPP=1)° 
123 123 eASCIZ ‘TSSR Incorrect After READ DATA Command’ 
105 122 eASCIZ s REREAD Previous (Space Reverse, Read Forward) Command Failed’ 
117 123 eASCIZ ‘POSITION (Space Command) Failed, TSSR Not Correct’ 
111 102 ASCIZ ‘RIB NOT SET AFTER READ REVERSE INTO BOT’ 
123 123 eASCIZ ‘TSSR Not Correct After Illegal Mode Bits Set 
154 154 eASCIZ aie” Mode Bits, Failed To Set ILC Bit oy “STO” 
105 122 ASCIZ ‘REREAD C Not Accepte 
123 123 ASCI2Z a ah cores After WRITE BATA RETRY Command,At BOT’ 
141 160 eASCIZ Ms After REWIND C€ — (BOT Not Set In x*STO)° 
122 111 ASCIZ ‘WRITE BATA ETRY’ Erase Tape No E 
105 122 ASCIZ ‘REREAD DATA OVER EOT GAVE NO TAPE. STAT ALE 2 
123 123 ASCIZ ‘TSSR Not Correct After REREAD a Reject’ 
145 167 ASCIZ ‘Rewind (POSITION) Command Not Acc 
101 115 eASCIZ ‘RAM Error, Correct Data tok yey h nore in Ram’ 
123 123 ASCIZ ‘TSSR Init. Failed After REREAD 
162 151 ASCIZ ‘Drive 7 Select Failed To Set ort In TSSR° 
123 123 ASCIZ ‘TSSR Not Correct After REREAD DATA Command, SWB Bit Set’ 
123 123 ASCIZ ‘TSSR Not Correct After REREAD DATA Command’ 
126 103 ASCIZ “Cyc Set, Didn’*t Reset VCK In nee Buffer’ 
123 102 ASCIZ ‘TSBA Not Correct After REKEAD DATA Command’ 
122 111 eASCIZ ‘WRITE SUBSYSTEM MEMORY C met Accepted (RAM Read)’ 
145 141 ASCIZ ‘Reading Long Record Failed To Set RLL Bit In xSTO° 
145 141 ASCIZ ‘Reading Long Record Failed To Set RLS Bit In xSTO° 
145 163 ASCIZ a ma Byte Count Incorrect After Short Record one 
145 141 ASCIZ -—" pene, Serer Failed To Give T Status Aler 
122 111 ASCIZ -URTTE AT TRY, At First Record, Failed To Set RIB Bit xsT3° 
123 123 ASCIZ2 ‘TSSR Not Correct After SPACE RECORDS Command’ 
123 123 ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY. Into BOT’ 
123 123 ASCIZ ‘TSSR Not Correct After WRITE DATA RETRY Command’ 
141 164 eASCIZ ‘Data C re Error Data Read From Tape Not Equal To Written’ 
165 156 an .ASCIZ. ‘Function Timing 
s¢ 
sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
sWRITE SUBSYSTEM MEMORY COMMAND 
T37REST: 
SAVREG sSAVE THE REGISTERS 
061110 HOV tbe R1 START OF THE PACKET 
100004 mov «#100004, (R1)+ WRITE SUBSYSTEM MEM. WITH 
061120 OV FTS7DATA, (RID® ADDR ESS OF CHARAISTICS DATA BLOCK 
CLR i EXTENDED A ADDRESS 
000012 MOV #10.,(R1)+ sSIZE OF DATA BLOCK IN BYTES 
061130 ro ATSHOFR, RTDs SADDRESS OF MESSAGE BUFFER 
000024 roe 7 seta SLENGTH OF MESSAGE BUFFER 
eee © ©, Sees {| DL Renee sicaaninin 


— ean 
LEI 
ee 


ee ees oe ne ee em ene 


} 
' 
_ 


CZTUZAO TURBO FRONT END PRT D 


TEST 6: 


8166 0643506 012711 
8167 064312 012702 
8168 064316 





FUNCTION TIMING 


000030 
177777 


061240 


G 16 
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061130 64$§: 


T37RT2: 


T37RT3: 


MOV 


#0, (R1) 

#24. Re 

#177777, T37BFR(R2) 
=/R2) 

#0,K2 

64$ 

PC 


#T37PK2,R1 
#100006, (R1)+¢ 
aTs7BF2, »(R1)¢ 
ada 
CR1) 

aT37BF2.R1 
(R1)¢ 

(R1) 

PC 





re gua 





ag DRIVE ZERO 
;NUMBER OF LOCATIONS TO BE CLEARED 
T SAGE BUFFER 


END 
: KEEP GOING UNTIL DONE 
; RETURN 






s SAVE THE REGISTERS 
TART OF THE 


PACKET 
WRITE suBsY YSTEM MEM. WITH ACK, 
i ADDRESS OF DATA BLOCK 


sEXTENDED ADDRESS 
3SIZE OF DATA BLOCK IN BYTES 
POINT TO DATA SEL AREA 





;RETURN 


sSAVE REGISTERS 

:SET UP POINTER ADDRESS 
SCOMMAND SPACE 

sADDRESS OF DATA BLOCK 
EXTENDED ADDRESS 

:S1ZE OF DATA TRANSFER BLOCK 






L10061: 


TRAP CSETST 


SEQ 201 


| 
| 


eel 


~~ wom — me wee = Ce 





H 16 


Q 
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DISPLAY BREAKPOINT SETTINGS 





9270 
9275 | 
9281 
9282 
9283 
wens -SBTTL HARDWARE PARAMETER CODING SECTION 
9286 344 
9287 : THE HARDWARE PARAMETER CODING SECTION ys MACROS 
9288 s THAT ARE USED BY THE SUPERVISOR TO BUIL S. 
9289 : MACROS ARE NOT EXECUTED AS MACHINE I TIONS BUT ARE 
9290 s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
9291 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
ps 3 : WITH THE OPERATOR. 
9294 071222 BGNHRD 

071222 000015 WORD L10063-LSHARD/2 

071224 LSHARD: : 


0 
3 
° 
= 
~ 
&- 





ee tere. terre. :GET TSBA/TSDB REGISTER ADDRESS. 













071224 000031 - WORD 
071226 071256 ~ WORD 
071250 160000 - WORD 
071232 177776 » WORD 
9297 071234 GPRMA sGET VECTOR ADDRESS. 
071234 001031 ~ WORD 
071236 071305 2WORD 
071240 000000 ~ WORD 
071242 000776 «WORD 
9298 071244 GPRMD HOR, 340,0,7.¥ES sGET INTERRUPT PRIORITY. 
71244 0020352 WORD TSC 
71246 071331 ~ WORD 
71250 000340 -WORD 340 
071252 000000 WORD TSLOLIA 
071254 000007 WORD TSHILIA 
9299 071256 ENDHRD 
~EVEN 
071256 
9300 071256 104 105 eASCIZ “DEVICE ADDRESS (TSSR) * 
9301 071305 111 118 eASCIZ ‘INTERRUPT VECTOR 
9302 071331 111 116 -ASCIZ ‘INTERRUPT PRIORITY : 





ee 
— ne 


- LL LOL LOO 
is 





1 16 


SEQ 203 
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SOFTWARE PARAMETER CODING SECTION 
9% -SBTTL SOFTWARE PARAMETER CODING SECTION 
fe 
9309 : THE SOFTWARE PASAMETER CODING SECTION CONTAINS MACROS 
9310 : T SOR TO BUILD P-TABLES. T 
9311 ; MACROS ARE NOT EXE INS | 
9312 : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
9315 s MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS | 
Sete s WITH THE OPERATOR. | 
9316 071362 BGNSFT | 
071362 000006 eWORD L10064-L$S0F 1/2 
071364 LSSOFT:: 
9317 071364 GPRML SPM1,0,-1,VES sGET RAM DUMP FLAG 
071364 000130 eWORD TSCODE 
366 071400 eWORD SPM | 
071370 177777 WORD -'1 
9318 071372 GPRML SPM4,2,°1,YES : GET ITERATION CONTROL. 
071372 0011 TSCODE 
071374 071 
071376 177777 
9319 3 = ae 4,0,7777,0,7777,VES : GET LOCAL ERROR LIMIT 
9320 SPM7.6.0, 7777.0, 7777. vES : GET GLOBAL ERROR LIMIT 
9321 071400 
1.10064: 
9322 071400 105 116 101 SPM: eASCIZ ‘ENABLE 47454 RAM DUMP ON ERROR‘ 
9323 071437 111 116 110 SPM4: eASCIZ ‘INHIBIT ITERATIONS 
9324 071467 120 105 122 SPM6: eASCIZ ‘PER TEST ERROR LIMIT ‘° 
9325 071517 120 105 122 SPM7: eASCIZ ‘PER UNIT ERROR LIMIT ‘° 
9326 EVEN 
9327 eSBTTL PATCH AREA 
9328 3¢ 
50 sDISPATCH TABLE 
oa : eee MOVE TO FRONT OF PROGRAM FOR RELEASE *** 
9333 071550 DISPATCH TESTNO 
071550 eWORD 6 
LSDISPATCH:: 
WORD T1 
T2 
13 
T4 
T5 
T6 





FINALLY A GENEROUS PATCH AREA. 


AND AN ADJUSTMENT TO ACCOUNT FOR THE “'LASTAD BIT?" HACK | 
DESCRIBED®:N "'SUPPRG.RER (FOR REV C). 


“Hee Ge Ge Ge 


ATCH: 





A 6 | ee me 








J 16 













SEQ 204 | 
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9342 071566 MOVER: 
9343 071566 012706 001000 MOV #1000,SP SET STACK AT LOC 1000 
9344 071572 000005 RESET SGET THINGS IN PLACE 
9345 071574 012701 177777 MOV #-1,R1 ;SET UP COUNTER 
9346 071600 005301 5$: DEC R1 : COUNTER 
9347 071602 001376 BNE 5$ “BR, IF MORE COUNTING TO DO 
348 071604 012703 072002 MOV HRHDR+ROMBASE “ROVER, R3 ;POINT TO MESSAGE 
9349 071610 004737 071756 JSR PC,PRINT :' MOVER REV 22° 
9350 071614 TESTSA 
351 071614 012701 172340 MOV #KIPARO,R1 sMOVER OF KIPAR REGISTERS 
2 071620 012705 172300 MOV #KIPDRO,RS “MOVER OF THE KIPDR REGISTERS 
9353 071624 005000 CLR RO SFIRST PAGE BASE ADDRESS 
071 010021 208: MOV + : SET FOR 
9355 071630 012725 077406 MOV 1606 (RS) 4K READ/WRITE EACH PAGE 
071634 062700 090200 ADD #200,R0 HE 
9357 071640 020027 001600 CMP RO, #1600 ALL PAGES 
071 003770 BLE 508. “SET UP ALL MEMORY MANAGEMENT PAGES 
9359 071646 012741 007600 MOV #7600,-(R1) °SET UP 1/0 PAGE 
9360 071652 012737 002000 172354 168: MOV #2000, a@#K IPARG “MOVER MEMORY PAGE 32KWORDS 
9361 071 005 CLR ‘INITIAL LOCATION 0 MOVER 
9362 071 012701 140000 17$: OV 140000,R1 “MOVER AT LOC 0, RELATIVE TO KIPAR6 
9363 071666 012504 10$: MOV (RS) +, RG “GET MEMORY CONTENTS 
9364 071670 052737 000001 177572 BIS #1, a#SRO 
9365 071676 10421 MOV R&,(R1)4 
9366 071700 042737 000001 177572 BIC #1, a8SRO 
9367 071706 020127 157776 CMP R1.#157776 ; 
9368 071712 101765 BLOS si ; 
9369 071714 737 000200 172354 ADD #200 ,@#KIPAR6 “MAP INTO NEXT PAGE 
9370 071722 023727 172354 003600 CMP ask IPAR6, #3600 SUP TO 64K YET 
9371 071730 002754 BLT 17$ ;LOOP UNTIL ALL MEMORY WRITTEN 
042737 000001 177572 BIC #1, a8SRO MANGEMENT 
012703 072071 MOV #G00D+ROMBASE-MOVER,R3 
004737 071756 JSR PC, PRINT . 
HALT “WAIT FOR DISK SWAP 
000137 072140 RLBOOT °GO BOOT THE XXDP PACK 
; PRINT ROUTINE 
PRINT 
737 (071766 1$: JSR PC, TTYPRT :60 TO PRINT ROUTINE 
001375 BNE 1$ “LOOP UNTIL 000000 IS FOUND 
207 RTS PC “RETURN TO CALLER 
CHARACTER PRINT ROUTINE 
105737 177564 TTYPRT: TSTB  @#TTOCSR sCHECK TTY FOR DONE 
100375 BPL TTYPRT SLOOP UNTIL DONE SETS 
112337 177566 MOVB = (R3)+, @#TTOBFR “SEND OUT CORRECT CHARACTER 
000207 RTS PC “RETURN TO CALLER 
; MESSAGE AREA 


1 ASCII <15><12>/MOVER REV 0.0/ 

103 ASCIZ <15><12>/CODE FROM 0-72k MOVES TO 32-64K WORDS/ 
103 GOOD: .ASCIZ <15><12>/CODE HAS eeee MOVED/<15><12> 

102 s ,ASCIZ <15><12>/BOOTING XXDP/ 


-——e- ~+-o= 
bl = —— —_ 





CZTUZAO TUSO FRONT END PRT D 


PATCH AREA 


9400 072140 
9401 072140 
9402 44 


9430 072270 
9431 072274 006 
9432 072500 


9434 
9435 
9436 
9437 


012701 
012700 


174400 
174404 


012720 000015 
004537 


072302 


000001 
0 


177730 
000006 


072302 


000177 


072302 
174402 
177400 
072302 
000240 


072121 
071756 


* 16 


MACRO M1200 29-MAR-83 13:43 PAGE 139 


RLBOOT: 


1$: 


2s: 


JSR 


END TEST NUMBER SIXTEEN 


#CSR,R1 
#DAR,RO 
#i_SR, (RO) + 
R5,33 
DLGETS 
ae 


(RO) .R4 
_—! 


#OLUN,R4 
7$ 

1$ 

R5,3$ 
DLROHD 
@RO,R4 
#OLCYL RG 
R4 
R4,-(RO) 
R5,3$ 
SEEK 
@#BAR 
(RO)+ 
#-256. ,aR0 
R538 


RO 
#240 ,a80 
8$ 


#800T ¢ROMBASE-MOVER .RS 


PC PRINT 
PC 


mS CSR REGISTER ADDRESS 
sADDRESS OF RL°S REGISTERS 
;SET RESET AND GET STATUS 
sMOVER 
GET STATUS COMMAND 
sCHECK FOR DRIVE READY 
sBR IF READY 
4 STATUS INFO 

MASK 








ne ODE 

NT HEAD POSITION 
:GET ADDRE 
JUST CYLINDER ADDRESS 
sSET UP FOR SEEK 

SCYLINDER OFFSET IN 

D0 THE SEEK 

SEEK COMMAND 

sADDRESS 0 


sCYLINDER 0 SECTOR 0 
3256 WORD TRANSFER 2°S COMP 
:D0 THE READ 


READ COMMAND 
:POINT TO DRIVE 0 
LOC 0 = NOP 

sNOT TRUE BOOT RECORD 
sPOINTER TO PRINT ROUTINE 
:""ABOUT TO BOOT XXDP*° 
;LOOKS GOOD JUMP 0 















— me ae eee 


SEQ 205. 


CZTUZAO TU8O FRONT END PRT D 
PATCH AREA 


9439 072302 
9440 


9445 0723520 

9446 072322 

9447 072324 

9448 

9449 

9450 

9451 

9452 072326 
072326 
072330 

5 0723352 


012511 
032711 
75 


072344 
000005 


000000 
000003 
172522 
000224 
000240 


000001 


100200 


L 16 
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3$: 
4$: 


LSLAST:: 


L10065: 


L10067: 


MOV (R5)+,aR1 

BIT #DLONER ,aRi 

BEQ 4% 

BM] 5¢ 

RTS RS 

$08 R2,1% 

HALT sHALT ON ERROR 
HALT sHALT ON ERROR 
HALT :HALT ON ERROR 
If NZ, .8377 

=. 137741 

eENDC 

LASTAD :SET LAST USED ADDRESS. 

EVEN 

eWORD TSFREE 

WORD TSSIZE 


(eSBTTL = HARD CODED P-TABLE 


DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 


BGNSE TUP 1 
BGNPTAB 

WORD 0 

WORD 110067-./2-1 

- WORD 172522 
- WORD 224 

- WORD PRIOS 
ENDPTAB 

ENDSETUP 





sACTUAL MOVER WITH COMMAND 
sCHECK FOR DONE OR ERROR BITS 
;WAIT FOR SAME 


EE 


2 EE 
77 aie 


CZTUZAO TUBO FRONT END PRT D0 
SYMBOL TABLE 









ADDSSR 011762 G 
ADR = 6 


26 


Owe 


S 
= 








sionneisren 





G 

G 

G 

G 

G 

= 6 

= 6 

= G 

04 = G 

05 = G 

06 = G 

07 = G 

08 = G 

B1T09 = G 

BIT1 = 000002 G 

B1T10 = 002000 G 

BIT11 = 004000 G 

atthe = 010000 G 

B1T13 = 020000 G 

BIT14 = 040000 G 

BIT15 = 100000 G 

eile = 000004 G 

BITS = 000010 G 

BITS = 000080 

= 

Ste = 000100 ¢ 

BIT7 = 000200 G 

BITS = 000400 G 

BIT9 = 001000 G 

BOE «= G 
BooT 72121 
N 355 


PISO e 
+ 
3385-52 
ok 
ont OP 
el 
Pd 
RI EPR & — 
i>) 





DATA G 
DATAFL 015055 


CTABM 003116 G 
CSAU = 009052 


1744 
002256 


DATASC 


DEBUGA 
DEVCNT 0021 
DEVDRO 023 


021124 
011 


E 
ESLOAD= 0000 


FATCHK 020070 


1 
G 
G 
G 
G 
G 
0G 





1 
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FSAU_ = 000015 
a. 000020 


SBGN = 0 
FSCLEA= ses od 


GETSEL 021150 
GOOD 

GSCNTO= 000200 
G 000 





nN 
G) GY G) G? 


GSYES = 000010 
00 





SEQ 207 | 


CE 


c % 
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SYMBOL TABLE 


KIPDRS= 172312 
KIPDOR6= 172314 


$Es8 


aS 


ES 


So 
ar 





NSI 004050 
NSINIT 004305 
NUL 004425 
NULCR 004426 
NxM =6-=_ 004000 






NXR 003636 
NXRERR 005176 G 
NXRX 003675 
NXTU 022214 
OFL 000100 











7 





70476 

O.TBIT 066274 
0.TBT = 000020 
O.TCLS 06470 
O.TCSR= 177564 
0.T0B = 
O.TL 0 
O.TRTC 
0.TVEC= 
0. TYPE 

oUIN 

-UPC 
0.UPS 
0.URO 
0.USP 

-WB1 
0.WDFG 

oWRD 
0.WRD1 
0.WSCH 

o XXX 
PASRPT 022246 

TCH 071566 G 


— a. 


CZTUZAO TUBO FRONT END PRT D0 
SYMBOL TABLE 


Ae 002400 





Pw.NOP= 000000 
Pu.NOT= 000023 


-CVC = 040000 
P.FAT = erence 
P.FORM= 000011 
P.GETS= 000017 
i 000200 





RMAPKTE= 000027 
RAR = 01 rere 


ROMBAS= 071 
7.4 070520 
SCE = 020000 
SCME 

SDELAY 010520 
SEEK 

SELASC. 021334 


dd 1 
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$2.BTI= 000004 
M= 200 


TEMP2 066 
TERCLS= 000016 


TSBA = 177776 G 
TSBAH = 177777 G 
TSBAL = 177776 G 
TSDB = 177776 G 
TSDBH = 177777 G 
SDBL = 177776 G 
TSFCOD 006730 
TSREJ = 000006 
TSSDEF 006277 
SSR = 0000 


23 
TTIBFR= 177562 G 
TTICSR= 177560 G 
a 000060 G 





TTOCSR= 177564 


TTYPRT 071766 
TUV2A 002000 G 


UV2A 

TSARGC= 000003 
TSCODE= 001130 
TSERRN= 001144 
TSEXCP= 000000 
TSFLAG= 0 
TSFREE= 072344 
TSGMAN= 
TSHILI= 000007 


TSSDAT= 010067 
TS$DU = 010052 
TSSHAR= 010063 
TSSHW = 010000 
TSSINI= 010030 


11. 024302 
1.3 024756 
11.4 0254 


SEQ 209 


- an > 
— ae 


EE TT ST 


ET — 
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SYMBOL TABLE 


333 


ee 


33 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


ata 


33 
z= 


atti 


rn 








032352 





037435 
0446 

045216 
043040 





—E 1 
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051 
051 


nn 


547 
3 


057750 
71 





SEQ 210. 


LE AE 
an 
ed —— 


ee 


F 1 











SEQ 211 
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SYMBOL TABLE 
T37TSA pet UNREC = XSORLL= 010000 X2.EXT= 
LE ag 06 I 004021 040000 x 1 
061242 WAITF 017110 G 
063001 WC.1FA= 000200 
711 WC.1FE= 000002 
WC.1G0= 000001 
1 WC.IRE= 000010 X2.WCF= 002000 
poOh sr WC.IRW= 000004 X3.DCK= 000010 
1274 wC.10T= 000100 X3.MBZ= 000006 
WC.11T= 000040 70 G X3.MDE= 177400 
063 WC.15R= 000020 X3.0PI= 000100 
046650 G WF .1ED= 000010 X3.REV= 000040 
70 WF .1ER= 000004 X3.RIB= 000001 
047506 WF .1HI= 000200 X3.SPA= 000200 
50274 WF .IRE= 000040 X3.TRF= 000020 
52646 G WF .1WF= 000020 DLT= 100000 X4.HSP= 100000 
052706 WF. JWR= 000100 x1. RBZ= 017375 X4.MBZ= 017400 
057776 G WF .13R= 000002 X1.RBP= 000400 X4.RCE= 040000 
WF .14R= 000001 Ny ae. 040000 X4.TSM= 020000 
UAM = 000200 G WRICHR 010322 G 00 C= 000002 X4.WRC= 000377 
UNITN 002150 G WRTERR 005011 XSOPED= 000010 42. BUF: 000100 


» ABS. 072344 oes 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: — Nae ( 142 PAGES) 
or ecES TIME 20060 WOR ( 77 PAGES) 


* 
APSED TIME: 00:12:2 
CZTUZA.BIC, C2TUZA/-SP=SVC.MLB/ML, CZTUZA 





